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I. INTRODUCTION 



Magnetic bubble memory is a non-volatile, high density, 
reliable memory system. It is superior in many ways to 
conventional secondary storage systems. It’s resistance to 
oppressive environmental conditions is a strong impetus for 
bubble memory's continuing growth. In addition, other 
characteristics enhance this memory's value to the 
marketplace. It's advantages make bubble memory a viable 
alternative in many situations. 

The objective of the work presented here is to 
demonstrate the utility of a bubble memory system in a 
conventional operating system (CP/M-86) using a commercially 
available microprocessor (Intel 8086) . 

The stated objective is accomplished in two phases. 

First a basic I/O driver is developed to exercise the iSBC 
254 Bubble Memory System. This driver tests critical 
operations necessary for additional development. All 
functions significant in data transfer operations are tested 
for proper operation. The basic driver program also provides 
a medium for software development and debugging. The next 
step involves the incorporation of the bubble memory into 
CP/M-86 as a disk resource. This task requires altering the 
BIOS portion of the operating system. A new BIOS was 
generated containing the necessary bubble memory subroutines 
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in a modularized format. The implementation as a disk is 
entirely transparent to the user. Procedures for utilizing 
the bubble memory do not differ from a typical disk system. 

Additionally, chapter 2 discusses in some detail the 
theory of bubble magnetic domains. This section also gives 
background on typical bubble memory system development and 
status. A thorough description of the hardware utilized in 
this thesis is given in chapter 3. The developmental system 
is functionally outlined and the iSBC 254 bubble memory 
board is described in detail. 
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II. BUBBLE MEMORY THEORY 



A. BUBBLE DOMAIN THEORY 

Bubble domains are small, magnetized, mobile regions 
within sheets or films of certain magnetic materials. This 
magnetic "bubble" is a physical phenomenon not unique to any 
one class of chemical compositions. Certain elements and 
their alloys, notably iron, cobalt and the rare earth elements, 
exhibit the property of ferromagnetism. Presently, nearly 
all bubble devices are made with s ingle -cry stal films of 
multicomponent magnetic rare earth- iron oxides having the 
garnet structure [Reference 1] . Ferromagnetism permits the 
material's atoms to exhibit a high degree of alignment 
despite the natural tendency toward random arrangements. 

The rule of opposites attracting comes into play in bubble 
memory technology. The domains existing in a substance are 
magnetized in either a positive (up) direction or negative 
(down) direction. In the absence of an external field the 
domains interact with one another, resulting in zero net 
magnetism. The more "up" domains you have, the more 
strongly they interact with those pointing "down," causing 
the bubble to grow larger [Reference 2] . An opposite force 
to this ballooning effect occurs at the wall of the bubble, 
where domains are in various stages of pointing down, 
crossways, and up (see Figure 2.1). This area of transition 
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Figure 2.1 

BUBBLE DOMAIN MAGNETIZATION 
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bounding the bubble tends to widen and slow the bubble's 
growth. The forces never balance and the bubble either 
continues to grow or collapses upon itself. Thus the 
ferromagnetic substance is a continually changing pattern 
of serpentine strips (see Figure 2.2a). 

When the magnetic substrate is cut properly into a thin, 
flat wafer, the domains jut perpendicularly through the 
plane of the chip. Their positive ends pointing up or down 
(see Figure 2.2a). Making bubbles stable (and useful) is 
accomplished by applying an external magnetic field. The 
strip domains magnetized in the direction of the magnetic 
field will increase in volume while those magnetized in the 
opposite direction will shrink (see Figure 2.2b). The 
domains will continue to be reduced until they completely 
disappear or until they reach a specific size (see Figure 2.2c). 
The strength of the external magnetic field is the determining 
factor [Reference 2], In actual bubble memory devices, the 
domains shrink until they are approximately .0001 inch wide. 

When viewed from above using a microscope they appear round, 
hence" the bubble designation [Reference 3]. This phenomenon 
is the result of the process of energy minimization. 

The applied external field, the bias field, is essential 
for bubble stability. As long as this field is kept constant, 
the bubbles neither expand or contract and are held at an 
acceptable size. The strength of the bias field necessary 
to maintain stability is of the order of 100-200 Oersteds. 
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Figure 2.2 

(a) SERPENTINE STRIPS, (b) MAGNETIZED STRIPS, 

(c) CYLINDERS 
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Small permanent magnets can easily supply the field 
strength required. These permanent magnets are immune to 
power fluctuations and are the reason that bubble memory is 
non-volatile. The stable equilibrium of the bubble domains 
is the result of a combination of three forces. The domain 
is preserved by its own magnetization acting against that 
of the external field. The internal forces produced 
counteracts the squeezing forces of the bias field. The 
circular shape is preserved by the magnetic surface tension 
located at the domain walls [Reference 3] . 

In order to produce an operational memory system, the 
bubble domains had to be moved through the substrate in an 
orderly fashion. Moving bubbles requires setting up a 
magnetic field gradient within the plane of the chip. This 
magnetic gradient unbalances the stability of the bubble. 

The domains will then move through the substrate toward any 
position that minimizes energy. A permaloy (nickel-iron 
alloy) track can be bonded to the surface of the substrate 
(see Figure 2.3). The bubbles will move along these tracks 
when the magnetic gradient is applied in a specific manner. 
At a designated point where a detector is located, the 
presence of a bubble can represent a binary 1 . The absence 
of a bubble represents a binary 0. This magnetic detection 
is similar to conventional magnetic devices. The 
distinguishing feature is the fact that no mechanical moving 
parts are present. This factor allows a bubble memory 
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BUBBLE PROPAGATION 



system to be entirely solid state. Bubble memory's 
nonvolatility makes it useful for almost any situation in 
which data that is being stored must be maintained. 
Nonvolatility also makes bubble memory portable. A user 
can remove the device from one computer, transport it and 
find all data intact. The fact that this memory is not 
electromechanical adds to its reliability and durability. 
[Reference 2] The next section will describe how bubble 
theory has been applied in memory engineering. 

B. APPLICATION OF BUBBLE THEORY 

This section will describe the general designs of 
bubble memory devices. The basic operations necessary to 
support a system are, bubble propagation, bubble generation, 
and bubble detection [Reference 1] . In addition to these 
basic functions, the data must be organized in such a way 
as to minimize access time. 

1 . Bubble Propagation 

As previously mentioned, the bubble domains will 
move in the presence of a magnetic field gradient. A 
rotating bias field set within the plane of the chip 
accomplishes this task. The chip is wrapped with two 
crossed wire coils and the appropriate current is passed 
through them. By rotating this field, known as the drive 
field, a magnetic impulse can be generated through the device. 
The bubble domains travel with this impulse and thus movement 
is created [Reference 4] . 
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beginning of the input track. The seed is generated by an 
electric current pulse in a hairpin-shaped loop of 
conductive material . The pulse is strong enough to reverse 
the bias field locally and thus allow a bubble domain to be 
created. Once having been created, the seed bubble remains 
in existence as long as the external bias field is maintained. 
The seed circulates under a permalloy patch, driven by the 
rotating field. This bubble is constrained to a kidney 
shape by the interaction of the bias and rotating fields 
with the metal patch (see Figure 2.4). The seed is split 
in two by a current pulse in the hairpin-shaped conductor. 

One of them remains under the patch as the seed, and the 
other is driven by the rotating field onto the input track 
section of the chip. The current pulse that splits the 
seed is generated to store a binary 1 in memory. To store 
a binary 0, the pulse is omitted. This seed bubble process 
is extremely temperature sensitive. A memory system must 
be able to vary the current pulse over a range large enough 
to compensate for large temperature variations . [Reference 4] 

3 . Bubble Detection 

A bubble detector is essentially a magneto-resistive 
bridge formed by interconnecting the permalloy chevrons to 
make a continuous electrical path of maximum length. As 
bubbles pass under the bridge, the resistance changes 
slightly, modulating the currents through the bridge and 
creating an output voltage of several millivolts. Bubbles 
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are stretched at right angles to the direction of 
propagation by adding parallel rows of chevrons. These 
stretched bubbles generate larger output signals at the 
detector. Beyond the detector the bubbles run into the 
guard rail and they are annihilated (see Figure 2.5) 
[Reference 4] . 

4 . Bubble Architecture 

The architectures presented here follow one another 
in the historical development of bubble memory systems. 

Each improved the data transfer rates critical to acceptance 
as a viable memory source. 

a. Shift Register Configuration 

The shift register architecture suffers from 
two fundamental problems: (1) If a single defect exists 

in the shift register chain, the entire chip is bad; and, 

(2) Data must be cycled through the entire chip in order 
for the user to gain access to what is needed. If the 
device is a 1M bit chip and the information is stored 
halfway down the chain, all the bubbles must move half the 
length of the chain, in this case 500,000 steps. A typical 
circulating frequency is 200kHz. In the above example it 
would take over 2 seconds to access the data desired 
[Reference 2] . This clearly is unacceptable in modern 
computer systems (see Figure 2.6a). 

b. Major-Minor Loop Design 

The problems of the shift register approach 
were alleviated by employing major and minor loop 
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architectures (see Figure 2.6b). In this configuration, 
data is stored in minor loops. When a read function is 
initiated, the data is rotated onto the major loop, 
detected, and recycled back onto the minor loop position 
where it began. Access times were improved greatly using 
this architecture, but improvement was still needed. An 
additional advantage of this configuration was in the area 
of chip production. Ths manufacturers were now able to 
provide redundancy in the number of minor loops. The extra 
loops that were added provided a margin of error in chip 
defects. If one loop was bad, an extra loop could take its 
place. Typically manufacturers provide up to 25 additional 
loops to compensate for any defects. 

c. Block Replicate Architecture 

The major-minor loop design improved accessi- 
bility but problems still existed. The fact that the bubble 
domains had to be recycled to their positions retarded 
access time. The block replicate architecture solved this 
problem (see Figure 2.7). This configuration involves 
swapping and replicating the bubble domains. When data is 
written into the system, bubbles on the input track are 
swapped with old data on the minor loops. The old data is 
then destroyed. When reading the minor loop, data is 
replicated onto the output track. The data remains intact 
in the minor loops. Swapping occurs when a current pulse, 
in a conductor under the chevrons, causes the bubble to 
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Figure 2.7 

BLOCK/REPLICATE ARCHITECTURE 
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jump from the input track to the storage loop and vice 
versa. The swap pulse is essentially rectangular, 
preserving the bubble without cutting it in two. For 
replication, the bubble is propagated under a large 
element where it is stretched out. As it passes under a 
hairpin shaped conductor loop it is cut by a current pulse 
just as in bubble generation. The replicating current puls 
waveshape has a high, narrow leading spike for cutting the 
original bubble in two, and a lower, wider trailing portion 
during which the new bubble moves under the output track. 
This pulse lasts one-quarter of a cycle. In this manner 
data is propagated to be read, yet retained in the minor 
loops for storage [Reference 4] . 

d. Odd-Even Loop Architecture 

A variation upon the block replicate design 
improves access time even further. Due to the properties 
involving bubble domain interaction, a domain can exist 
only in alternate positions. This space in between each 
data position means that data can be manipulated only every 
second cycle. A way around this problem was found in the 
odd-even loop architecture (see Figure 2.8). The minor 
loops are divided into even and odd sections. On one cycle 
the even bits are read and on the next cycle the odd bits 
are read. The positions of these bits are staggered and 
they are interleaved on the way to the detector. The write 
operation is similarly performed except no interleaving is 
needed [Reference 6] . 
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Figure 2.8 

BLOCK/REPLICATE ODD/EVEN ARCHITECTURE 



As a result of these architectural improvements, access 
time has been cut from 2 seconds (shift register) to 40 
milliseconds. While this time is 1,000 times slower than 
ram memory, it is 2 to 4 times faster than either hard or 
floppy disk. 

C. PRESENT BUBBLE MEMORY STATUS 

The market for bubble memory has never materialized as 
anticipated when it was first introduced. Essentially, 
bubble memory has been playing catch up for the past 15 
years. In the late 1960's bubble technology was seen as 
the answer to unwieldy core memories and slow disk systems 
then in use. Research continued at Bell Labs as well as at 
IBM, National Semiconductor, Motorola, and Texas Instruments. 
Mastering bubble technology was no easy task however. As 
the companies struggled to get their product out of the 
labs and into production, they neglected to develop 
supporting electronics. This circuitry, notably bubble 
memory controllers, is essential to make bubble memories as 
easy to use as disks. This lapse alone cost the industry 
two or three years in terms of market acceptance. In 
addition the price of semiconductor memories and disk 
systems continued to fall. As a result, bubble memory sales 
plummeted (Reference 7] . This lack of sales volume 
resulted in the price of a bubble system remaining very 
high in comparison to its competitors. One by one 
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companies dropped out of the market, until Intel Corporation 
was the lone producer in the United States. At one point 
there was estimated to be 200 engineers working on bubble 
memory compared with 50,000 individuals researching silicon 
memories. The lull was broken in 1979 with the advent of 
Intel's 1 megabit device. The initial price was a stiff 
$2,500. Production costs have since been reduced 
sufficiently to allow a $300 current pricetag. Although it 
is doubtful if bubble memory will ever displace disk systems, 
it has found a growing segment in today's marketplace. Its 
solid state durability has made it a natural selection for 
systems in harsh environments. Bubble systems have also 
found their way into a few personal computer systems. With 
the coming of Intel's 512k byte chip later this year and a 
2-megabyte in 1986, the market should open even further. 

Today bubble memory seems to have come back from near 
disaster. It is now viewed with enthusiasm as a young 
technology with an as yet unknown potential. The following 
chapters will describe how a particular bubble memory system, 
the Intel iSBC 254, can operate in a microprocessor 
environment . 
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III. HARDWARE SYSTEM DESCRIPTION 



A. OVERVIEW 

The major components used in the work described here 
consist of an iSBC 254 bubble memory system, an iSBC 86/30B 
single board computer, an Intellec single density MDS , and 
an iSBC 201 single density disk controller. The system 
was operated using the CP/M-86 operating system (version 1.0 
as modified in Reference 15). The following sections will 
describe each component. Particular emphasis will be 
placed on the bubble memory system. 

B. iSBC 254 BUBBLE MEMORY BOARD 

The iSBC 254 bubble memory board is a fully assembled, 
multibus compatible, non-volatile memory. The board is 
capable of utilizing up to four Intel 7110 bubble memory 
modules. The rotating field operates at a frequency of 
50Khz. A permanent magnet provides the bias field of 20 
oersteds. The operating temperature range is between 0 and 
50 degrees centigrade with 100 FPM of airflow. The 
iSBC 254 is compatible with 16-bit addressing for 8 bit 
microprocessors and 20 bit addressing for 16 bit machines. 
There are three modes of data transfer available: polled, 

interrupt, and DMA. 
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The iSBC 254 configuration used in this work consisted 
of two 7110 modules, their support components, one controller, 
a DMA controller, and associated Multibus interface I/O 
circuitry. This configuration has a maximum data transfer 
rate of 25K bytes/sec with an average access time of 48ms. 

A storage capacity of 256K bytes of non-volatile read/write 
memory is available. The 7220-1 BMC controller interfaces 
the memory modules to the multibus circuitry via I/O 
buffers. These buffers then transfer data, address, control, 
and status information to the system bus and iSBC 254 board. 

No special timing considerations or hardware modifications 
were necessary. The iSBC is fully compatible with any Intel 
host computer on a Multibus system. No attempt will be made 
here to explain the complex internal timing and operations. 

A full explanation can be found in Reference 8. Instead, a 
brief outline will be given on the operation of each of the 
major board components. 

The following devices will be described as to function 
and system interface: 

1. 7110 Bubble Memory Module 

2. 7220-1 Bubble Memory Controller (BMC) 

3. 7242 Formatter/Sense Amplifier (FSA) 

4. 7230 Current Pulse Generator (CPG) 

5. 7250 Coil Predriver (CPD) 

6. 7254 Quad VMOS Drive Transistor 

7. Power Fail Circuitry 
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1 . Component Functions 



The 7110 magnetic bubble module is a high density, 

1 megabit solid state memory chip. The MBM holds the 
bubble data for storage and transfer. The architecture is 
odd-even, block replicate. The 1 megabit storage capacity 
is provided by 256 loops of 4,096 bits each. When error 
correcting is selected 14 additional loops are incorporated 
for the fire code. If error correcting is not implemented 
272 loops are used for data. The module itself is divided 
into four quads. Each half module consists of an "odd" 
and "even" quad. Odd and even refers to the bit position 
of the stored data. A half module consists of 160 loops. 
Since only 155 are required for data and the ECC code, 25 
are left for redundancy. In practice the module is screened 
for up to 24 bad loops to allow the user 16 extra bits if 
error correcting is not implemented. Each quad has an 81st 
loop called the bootloop. This loop provides a map 
indicating the good and bad storage loops. The bootloop is 
written during production and normally requires no 
modification. The bootloop also provides synchronization 
data used as a reference for a physical page address. The 
data flow, as previously described in chapter 2, is typical 
of the odd-even block replicate architecture [Reference 8] . 

The 7220-1 Bubble Memory Controller provides all the 
timing and control functions needed to operate the system. 

It is the single point of contact between the host and 
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memory. The 7220-1 provides a suitable microprocessor 
interface as well as an interface to the support chips on 
the iSBC 254 board [Reference 9] . The method of 
communication with the controller will be discussed later 
in this chapter. 

The 7242 Formatter/Sense Amplifier accepts signals 
from the bubble detectors in the MBM. During read 
operations, this device buffers the signals and performs 
formatting operations. During write operations, the 7242 
enables the current pulses of the 7230 that causes the 
bubbles to be generated. Automatic error detection and 
correction of the data can be performed by the 7242. The 
bootloop is automatically placed in the 7242 bootloop 
register to serve as a data map for the system [Reference 9] . 

The 7230 Current Pulse Generator supplies the 
pulses that produce the magnetic bubbles and transfer them 
into and out of the storage loops of the MBM [Reference 9] . 

The 7230 and two 7254 's supply the drive currents 
for the in-place rotating magnetic field (X and Y coils) 
that move the magnetic bubbles within the MBM [Reference 9] . 

The bubble memory is accessed by passing currents 
of the proper magnitude and phase through two coils within 
the MBM. These currents must always be of the proper 
amplitude and phase or data can be lost. It is also 
critical to avoid any transient pulses that may occur. 

The purpose of the power— fail circuitry is to prevent 
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these transients and to monitor the system voltages. 

Should power fail, the coil currents must stop in the 
proper phase [Reference 9] . 

To better illustrate the interactions between 
the various components, the data flow within the system 
will now be explained (see Figure 3.1). During the read 
operation, bubbles from the storage loops are replicated 
onto an output track and then moved to a detector within 
the MBM. All movements and current pulses are under the 
control of the 7220-1 controller. The magnetic field 
rotation and timing are also controlled by the 7220-1. 

The bubble detector outputs a differential voltage 
according to whether a bubble is present or absent in the 
detector. This voltage is fed to the detector input of 
the Formatter/Sense Amplifier. The data path between the 
7110 MBM and the FSA consists of two channels connected 
to the two halves of the MBM. When data is written, the 
bit stream is divided with half of the data going to each 
side of the MBM. During a read operation, data from each 
half of the MBM goes to the corresponding channel of the 
FSA. In the FSA, the sense amplifier performs a sample- 
and-hold function on the detector input data. The sense 
amplifier then produces a digital one or zero. The 
resulting data bit is then paired with the corresponding 
bit in the FSA bootloop register. If an incoming data bit 
is found to be from a good loop, it is stored in the FSA 
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FIFO buffer. Otherwise the data is ignored. This process 
continues until both channel's FIFOs are filled with 256 
bits. Error detection and correction, if enabled by the 
user, is applied to each block of 256 bits at this point. 

If error correction is not enabled, 272 bits are used as 
data. As the data leaves the FSA, the bit patterns are 
interleaved and sent to the 7220 BMC. The transfer is in 
the form of a serial bit stream via a one line bidirectional 
data bus. In the 7220 BMC, the data undergoes a serial-to- 
parallel conversion and is assembled into bytes that are 
buffered in the 7220 FIFO. It is from this FIFO that the 
data is written onto the user interface [Reference 4] . 

2 . Communicating Kith the 7220-1 BMC 

The bubble memory controller is the single point 
of contact with the host interface. The CPU views the 
BMC as two input/output ports on the bus. When the least 
significant bit of the address line is active (A0=1) , the 
command/status port is selected. When the least 
significant bit of the address line is inactive, the data 
port is selected. For simplicity the BMC can be viewed as 
a 40 byte FIFO buffer and 6 eight bit registers. The primary 
purpose of the FIFO is to reconcile differences in timing 
between the user interface and FSA interface. The six 8 bit 
registers internal to the BMC are loaded by the user with 
information regarding the operation of the system. Loading 
these registers before any commands are sent is similar to 
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passing parameters to a subroutine prior to execution. 

Hence the registers are referred to as parametric registers. 
Data transferred between the 7220 and the CPU takes place 
over an 8 bit data bus. The choice as to whether the data 
is destined for the FIFO or the parametric registers is 
made through the command/status port. In one case, the 
actual commands that cause some operation to take place 
(read, write, etc.), are signified by a command byte with 
bit 4 set to 1 and the low order nibble containing one of 
16 command codes. If bit 4 is zero, the low order nibble 
is taken to signify a parametric register pointer. For 
user convenience the 7220-1 contains a register address 
counter (RAC) . The RAC is self incrementing with each 
subsequent byte of data transferred on the data port. This 
feature allows the user, after addressing the first 
parametric register, to load the register values 
sequentially without addressing each one. After the last 
register has been loaded the RAC points to the 7220-1 FIFO 
for subsequent data transfers. The parametric registers 
are listed in Figure 3.2. 

All commands given to the BMC are issued through 
the command status port to the command register. The 
sixteen commands available to the bubble memory are listed 
along with the hex code. 
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Write Bootloop Register Masked 
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Read, write, abort, and initialize are described in chapter 
4. The remainder of the commands are seldom used in normal 
operation. They are described in detail in Reference 8. 

Addressing flexibility is one of the features of the 
iSBC 254 bubble memory. In the work described here, two 
modules were available for use. Using the addressing 
combinations available, the data could be organized into 
2,048 pages of 128 bytes each or 4,096 pages of 64 bytes 
each. The configuration is determined at run time using 
the block length register and address register. Figure 3.3 
lists the various combinations available for up to four 
modules . 

The Block Length Register (BLR) is a 16 bit value 
divided into two fields: The "terminal count" field and 

the "channel" field (nfc) (see Figure 3.4a). The terminal 
count field ranges over the eleven least significant bits 
and defines the total number of pages requested for a read 
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or write operation. With the eleven bits it is possible 
to request from 1 to 2,048 pages. A field of all zeros 
indicates a 2,048 page transfer. The channel field 
indicates the width of the page by specifying the number 
of channels to be used. A page width of 64, 128, 256, ' 
or 512 bytes can be selected (see Figure 3.3). The address 
register is another 16 bit value containing two fields 
(see Figure 3.4b). The 11 bit starting address field 
specifies the page address at which the data transfer begins. 
If more than one page is transferred the address field is 
automatically incremented. The second field in the address 
register, the MBM select field, consists of bits 11, 12, 13, 
and 14 (bit 15 is not used) . These four bits select the 
particular MBMs to be used in a data transfer. In conjunction 
with the channel field of the block length register, the MBM 
select field controls the serial selection of bubble modules 
or groups of modules operated in parallel. 

The final parametric register is the enable register. 
While the address and block length registers define the 
system configuration, the enable register defines the mode 
of operation, interrupt conditions, and error correction 
level (see Figure 3.5a). The system is capable of three 
modes of transfer, polled, interrupt, and DMA. This work 
utilized the polled method which will be explained in 
chapter 4. A thorough description of the other modes is 
outlined in Reference 8. The error correction feature can 
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be implemented on three levels. Level 1 is the minimum 
level of error correction. This level is used only when 
the host is concerned with maintaining bubble integrity. 

If an error is detected, a read corrected data command is 
automatically given to the FSA. If the error is 
correctable, the data transfer continues normally. If the 
error is not correctable or a timing error exists, the 
data transfer will be terminated at the error page address. 
This level is well suited to a go/no-go type of data 
transfer, and was chosen for the work in this paper. Level 
2 is identical to 1 with the exception that upon an 
uncorrectable error no erroneous data is transferred to the 
BMC FIFO. Level 3 is the most intensive means of error 
handling. Under this setting the data transfer is halted 
if any error is detected. It is by far the most demanding 
in terms of softxvare requirements [Reference 9] . 

The final register to be discussed contains the 
status of the data transfer. Figure 3.5b illustrates the 
bit designations in the status register. As will be 
described in chapter 4, this register is extremely important 
when using the polled method of data transfer. The status 
register contains information concerning error conditions, 
command completion (or termination), and the BMC's 
readiness to accept new commands [Reference 9] . 



3 . Preparing the iSBC 254 Board For Operation 

After the board was visually inspected for flaws, 

the following jumpers were connected: 

E 79 - E80 
E67 - E68 
E46 - E45 
E30 - E 2 9 
E27 - E28 
E63 - E64 

These jumpers established the base address of OOh, an 
acknowledge delay period of four clock cycles, serial bus 
priority, and 8 bit I/O addressing [Reference 8] . 

The iSBC 254 requires +5VDC at 2 . 4A and 12VDC at 
0.8A. These power requirements are fully compatible with 
the available multibus power supplies. No hardware 
modifications are required. 

C. DEVELOPMENT SYSTEM 

The hardware used in the development of the software, 
centered upon the Intellec Microcomputer Development System. 
The Intellec MDS is a coordinated, complete computer system 
designed around the Intel 8080 microprocessor. The system 
modules are contained in an eighteen card chassis which 
features Intel’s Multibus architecture. The 8080 
microprocessor was removed along with its associated memory 
modules. The 86/30B was placed in an odd slot to serve as 
bus master. No additional memory modules were required as 
the 86/30 has 128K of onboard memory. The iSBC 201 disk 
controller serviced a dual single density disk drive 
[Reference 10] . 
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The iSBC 86/30 is a single board microcomputer based on 
the 16 bit Intel 8086 microprocessor. Included on the board 
are 128K of dynamic RAM, three programmable parallel I/O 
ports, programmable timers, priority interrupt control, 
serial communications interface, and Multibus interface 
logic . 

The CP/M-86 operating system is a product of Digital 
Research and is produced for use with the 8086 microprocessor. 
CP/M-86 provides a wide variety of utility built-in commands 
and transient programs. In addition the user can produce 
and execute additional transient programs. CP/M-86 
provide useful programs for software development. DDT86 
is a dynamic programming debugger that proved invaluable 
for program error correcting. This operating system also 
provide facilities for writing and editing programs. ED is 
a very primitive text editor that proved to be adequate for 
writing the programs used in this work [Reference 11, 12]. 

The programming language used was 8086 assembly language due 
to the basic register, data, and I/O port manipulations that 
were required to make the hardware operate. All programs 
were written and assembled using this system. No outside 
resources were required. A printer was available for hard 
copy transfers. 
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IV. BASIC SOFTWARE DRIVER DEVELOPMENT 



A. DRIVER ORGANIZATION 

The first step in developing a working bubble memory 
system is the development of a basic I/O driver and 
operationally testing the program for correctness. This 
task was accomplished using a menu driven program with 
modular structure and expansion capabilities. The 
completed program, BUB.A86, is listed as Appendix A. 

At the outset of this project, a decision was made to 
use the polled method of communication. This method was 
chosen both for its simplicity and reliability. The polled 
I/O mode is the most simple to implement since no special 
or external hardware is required to perform data transfers. 
In the polled I/O mode, the software must determine when to 
transfer data to or from the FIFO by continually polling 
a status bit in the BMC ' s Status Register. This status 
bit indicates the presence or absence of data in the FIFO 
on a byte by byte basis. The polled method places the most 
demand on the host system's processing time since the 
software continuously must monitor the Status Register 
[Reference 9] . 

The driver program's main menu includes the following 
features : 
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1. Abort 



2 . Send Any Command 
5. Read Status Register 
4. Format Bubble Memory 

The sequential development of these features aided in the 
understanding of the operation of the memory system. In 
addition this method of development honed the programming 
skills necessary for subsequent developments. Each 
subroutine supported succeeding more complex routines. 

B. FUNCTION DESCRIPTION 
1 . Abort Function 

The abort routine was developed initially in 
accordance with the manufacturers recommendations. When 
powering the iSBC 254 Bubble Memory Board up for the first 
time, it is imperative that the board be aborted to insure 
proper operation. When power is first applied to the 
iSBC 254, a power fail reset circuit provides a delay (at 
least 2ms) to allow the 7220-1 bubble memory controller (BMC) 
to properly power-up. An abort command must then be issued 
to the BMC in order to reset the system into a known state. 
After both power supplies have reached 95 percent of their 
nominal values, a 50ms delay is needed before the abort 
command is issued to the BMC. This delay could be 
implemented in software. It was decided however that this 
interval would be more than taken care of by the amount of 
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time necessary to power-up the system, load the operating 
system, and implement the program [Reference 9] . 

The abort subroutine is a simple example of a non 
data transfer command sequence (see Figure 4.1). No 
parametric registers have to be written prior to issuing 
the command. After the command has been sent, the status 
register is checked to see if the command has been accepted. 
This acceptance is signified by the setting of bit 7 in 
the status register (busy bit) . Once the command has 
been accepted, the status register is checked to see if 
the operation is completed (bit 6 in the status register) 
or if it has failed (bit 5 in the status register) . If the 
operation fails or the timeout counter terminates, the 
routine returns an error message. If the operation is 
successful, a completion message is sent and the routine 
returns to the main program. Due to the necessity of 
aborting the bubble memory, this routine is performed in 
software automatically each time the bubble memory driver 
is initiated. It may also be selected for execution from 
the menu. 

2 . Send Any Command Function 

The second function in the bubble control driver is 
one in which commands can be sent to the bubble memory 
controller. Each command developed has its own calling 
routine which then executes the necessary subroutines. In 
the work described here it has not been necessary to 
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develop all of the bubble commands. Abort, initialize, 
fifo reset, read, and write were the ones needed to 
develop the driver. After successfully aborting the 
bubble memory, it is necessary to initialize it for further 
operation. This command prepares the bubble system for 
subsequent operations and is used when the bubble system is 
powered-up. The parametric registers must be loaded prior 
to executing this command. The following information is 
necessary for successful initialization: 

The channel field in the block length register must 
be set to 0001 to arrange all bubbles in the system 
in a serial configuration. This code allows the 
individual bootloops to be read from each bubble and 
then written to the bootloop registers of the 
corresponding FSA channels. 

The MBM select field in the address register must 
select the last bubble in the system to inform the 
BMC of the number of bubble modules in the configuration. 
In the case of the iSBC 254 board that was used in this 
work there are two bubble modules. Thus the code of 
0001 was entered to satisfy this requirement. 

The bits in the enable register selecting error 
corrections must be set in accordance with how subsequent 
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read and write operations are to be performed. The 
bubble system must be initialized each time error 
correction is activated or deactivated. Merely changing 
error correction levels does not require 
re -initialization. 

The bubble system can be initialized to any address 
within the module. 

When an initialization command is received, all internal 
registers within the BMC are cleared and the FIFO is reset. 
The BMC then reads the bootloop from each bubble and writes 
the corresponding bootloop information into the bootloop 
registers. The bubble is left positioned according to the 
value in the address register [Reference 9] . 

The subroutine used to initialize the bubble system 
follows the same format as the abort routine with the 
exception of writing the parametric registers. Since the 
values to be sent to the registers are constant, they are 
stored in a table in memory. A routine then moves these 
values to reserved locations for the parametric register 
values. Once these parameters are located properly, they 
are then loaded into the appropriate register. After the 
initialize command is issued, the polled method then 
continually reads the status register to insure that the 
command has been accepted and completed. The applicable 
messages are printed after the operation. 
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The read and write command routines were developed 
after the board was verified to be initializing properly. 

The read bubble data command causes data to be read from the 
MBMs and into the BMC ' s FIFO. Immediately before the read 
command is issued the parametric registers have to be 
properly loaded. Since the future plan for the bubble 
system was to incorporate it into a CPM-86 operating system, 
the bubble memory was configured to read 128 byte blocks. 
This arrangement is accomplished by loading the following 
code into the parametric registers: 

The channel field (4 most significant bits in the 
block length register) contains 0010. This code 
tells the BMC that both bubble modules are to operate 
in parallel. Two modules in parallel contain 2,048 128 
byte pages. 

The block length was set to one for a one page transfer. 

The enable register was set for error correction level 
one . 

Bits 6, 5, 4, 3 of the address register's most 
significant byte were set to 0000. This code addressed 
the first two modules in the bubble memory system. 

Although the configuration used here has only two bubble 
modules, the BMC has the capability of controlling eight. 
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For this reason it is necessary to specify the correct 
configuration. The page address can be any value up to 
2,047. As a result, this routine can write to any page 
in the bubble memory system. 

The read routine is somewhat more complex than a 
non-data transfer command (see Figure 4.2). Since the 
register values can vary, a method was devised to enter the 
desired numbers from the console. When the read command is 
selected from the menu, a series of messages will prompt 
the user to enter the values of the various registers. 

These values are to be entered in decimal form. A 
conversion routine changes the numbers to hex code and stores 
them in the proper memory locations. The registers are then 
loaded and the read command is issued. Although the routine 
is set up to read one 128 byte page any appropriate numbers 
can be entered depending upon how the read command subroutine 
is tailored. In this case block length is entered as 0001, 
number of channels is 2, enable register is 32 (20h-level 1 
error correcting), the page address can vary from 0000-2047 
and the bubble number is entered as 0000. Level one error 
correcting was chosen to facilitate data transfer in the 
event of a correctable error. Only a non-correctable error 
would terminate the operation [Reference 8, 9], 

Once the read command is issued, the status 
register must be checked for command acceptance. When the 
command is accepted, bit 0 of the status register is viewed 
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to determine if the FIFO is ready to accept data. If the 
system is ready, data is read one byte at a time. This 
cycle is repeated for all 128 bytes. If during the transfer 
the time-out counters run out or an uncorrectable error 
occurs, the operation will terminate. The status register 
will signify operation complete (bit 6) when the proper 
number of bytes have been transferred. This number is 
determined from the parametric register values described 
above . 

The write bubble data command causes data to be 
written into the bubble memory modules. A write data 
transfer does not occur until at least two bytes of data 
has been written into the FIFO. As in the read routine the 
parametric registers have to be written with the appropriate 
data. In this case, the write routine loads 128 bytes into 
memory. The register parameters are identical to those in 
the read procedure. The mechanics of the read and write 
subroutines are virtually identical. 

Although most of the commands available to the bubble 
memory are not developed in this controller, those described 
above are the most commonly used. Essentially the previously 
defined commands are all that is needed to produce an 
effective driver routine [Reference 4]. Provisions have been 
made in this program for expansion. Any additional command 
routines can be inserted with a minimum of programming 
difficulty . 
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3. Read Status Register Function 



The third function, in the main program displays 
the contents of the status register. This feature provides 
the means of examining the individual bits of the register 
as they are displayed in binary form. The read and write 
routine also use this function when returning to the main 
program. This feature is an excellent diagnostic tool if 
problems occur in program execution. This routine converts 
the register bits into ascii l's and 0's. These characters 
are then displayed in a message format. 

4 . Format Function 

The last function is used to format the bubble memory 
to be used with the CPM-86 operating system. Using the 
existing write routine, format loads each bubble byte with 
eSh. This code signifies deleted information when operating 
under CPM. It is essential when the bubble system is used 
as a "disk" resource. 

C. PROBLEMS ENCOUNTERED 

The hardware performed in a flawless manner. Everything 
functioned as expected. The only problems encountered at 
this juncture originated in software. They were relatively 
minor, and with the aid of DDT86 the difficulties were 
quickly resolved. The source of all error could be 
attributed to programmer inexperience regarding 8086 assembly 
language programming. 
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V. INCORPORATION OF THE BUBBLE MEMORY AS A DISK RESOURCE 



A. CP/M- 86 STRUCTURE 

The CP/M-86 structure consists of three parts: The 

console command processor (CCP) , the basic disk operating 
system (BDOS) , and the basic input-output system (BIOS) . 

The CCP interprets commands entered by the user and issues 
responses. This portion of the system examines command 
lines typed by the user, performs some simple validation, 
and calls the appropriate BDOS and BIOS functions. The BDOS 
contains the various utility routines for managing disks. 

It makes disk file management transparent to the user. Disk 
files are often widely scattered in small blocks throughout 
the storage device. BDOS manages these blocks, dynamically 
allocating and releasing storage as necessary. The BIOS 
contains the various drivers that send data to and from the 
devices, and it receives status information about the success 
or failure of I/O operations. The CCP and BDOS occupy 
approximately 10k bytes of memory. These portions are 
provided on the distribution disk as CPM.H86. The BIOS is 
modifiable by the user and occupies a variable amount of 
memory. A skeletal BIOS is provided by Digital Research for 
operation with disk peripherals [Reference 11]. The next 
section deals with the modification of this BIOS to 
accept the iSBC 254 Bubble Memory as a "disk." 



57 



B. BIOS MODIFICATION 



The CCP and BDOS communicate with physical devices via 
a well-defined interface in the BIOS. This interface is a 
set of call and return parameters for the specific functions 
used. The BIOS modified for bubble usage was based on the 
one outlined in Reference 13. That BIOS was modified to 
operate an iSBC 201 disk controller vice an iSBC 204 as 
provided in the skeletal BIOS. The structure of this 
modification was deemed adequate for the needs of the work 
presented here. Since the crux of this work is to operate 
the Bubble Memory as a "disk" resource, no major 
modifications in structure were attempted. 

The first step in the BIOS modification was to modify 
the disk parameter table. This table lists the specified 
device characteristics. 

The CP/M operating systems are designed to utilize a 
table-driven specification for the physical characteristics 
of each disk device. The modification of this table is 
essential for the user to add devices to the system. The 
disk definition table is generated using the following 
parameters: Logical device number, first and last sector 

number on each track, optional skew factor, blocksize, disk 
capacity, the number of directory entries, the number of 
checked entries, and number of tracks to reserve for the 
operating system. The utility program GENDEF will generate 
the disk parameter tables and the necessary scratch pad and 
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buffer area needed by the operating system for device 
communication. GENDEF uses a file labeled [filename] . def 
as an input for execution. This input file contains the 
disk parameters listed above. GENDEF produces a file 
labeled [ f ilename ] . 1 ib to be used with an ASM86 include 
statement in the system BIOS. 

The disk definition parameters used in the BIOS of 
reference 13 were used for the Bubble Memory BIOS. The 
number of disks was changed to three and the characteristics 
of the bubble "disk" were added. The iSBC 254 system 
readily adapted to the CP/M environment. With the 
exception of the skew factor no parameters needed to be 
changed from the standard disk parameters. The skew factor 
was entered as zero due to the fact that there is no 
latency time applicable to the bubble memory. In a 
sequential access the bubble pages will not rotate as a disk 
does. The bubble memory was set as disk number 2. The 
first and last sectors were 1 and 26 respectively. The 
block size was defined as 1024 with disk sizes equal to 243K. 
The bubble has 64 directory entries and checked directory 
entries. There are two reserved tracks. The object file 
for the GENDEF command was named SINGLES. DEF. GENDEF then 
produced the file labeled SINGLES. LIB. A listing of these 
two files can be found in Appendices B and C. 

The next step involved the actual modification of the 
BIOS. The name chosen for the bubble BIOS was BUBBIOS and 
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will be referred to as such. A complete listing of 
BUBBIOS.A86 is in Appendix D. Since the iSBC 254 must be 
aborted and initialized prior to operation, a suitable 
place for insertion into the BIOS had to be found. It was 
decided to place these subroutine calls in the INIT 
subroutine. They were located in the "not loader bios" 
portion of this subroutine. This location was chosen to 
insure that the code and data segments would be properly 
initialized prior to calling the bubble subroutines. 

SELDSK was the next subroutine modified. The number of 
disks needed to be changed to 3 vice 2. The subroutine 
HOME was modif ied 'such that after the track was set to zero, 
a comparison was made to determine if the bubble had been 
chosen. If the bubble memory was selected, a jump was 
inserted to skip the disk device operations and return from 
the routine. The read and write routines were modified in 
a similar fashion. Since the iSBC 254 uses completely 
different routines then a disk device, both READ and WRITE 
make a comparison and jump to the appropriate bubble memory 
routines . 

After the existing BIOS routines were modified, new 
routines for the bubble memory had to be added to the 
existing code. The following bubble subroutines are 
utilized in BUBBIOS: bubrd (bubble read), bubwrt (bubble 

write) , abort (abort the bubble) , wtreg (load the parametric 
registers) , and initb (initialize the bubble). These routines 
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were all developed in the Bubble Memory Driver delineated 
in chapter 4. No major modifications were necessary in the 
structure . 

A problem did exist due to the fact that track and 
sector as supplied by the operating system did not translate 
into bubble memory page number. As a result a simple 
algorithm had to be implemented in the subroutine code. 

It was mentioned earlier that the bubble system would be 
configured to operate with the two modules in parallel. The 
result is a data organization of 2,048 pages of 128 bytes. 

Since CP/M operating system defines a sector as 128 bytes, 
this translates to a page in bubble memory. CP/M generates 
the sector and track values for each device access. Since 
there are 26 sector per track, the page address for the 
bubble memory can be determined by multiplying the track 
value by 26 and adding the sector value. This simple 
algorithm requires 6 lines of code and is inserted prior to 
calling wtreg in the bubble read and write subroutines. 

Another relatively minor modification involved returning to 
the operating system with "1" or "0" values in the al register. 
If an error occurs in the subroutines, a 1 is to be returned. 
This action causes an error message to be transmitted by 
the system. As a result, the bubble routines were modified 
to return the appropriate values. 
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C. PROBLEMS ENCOUNTERED AND PERFORMANCE EVALUATION 



1 . Problems in Implementation 

A major difficulty resulted because of confusion in 
properly setting the si pointer register. During a write 
operation, the data segment is equated to the dma segment 
supplied by the operating system. The problem arose when 
the si pointer was set to the dma address after the data 
segment value was modified. The values for the dma address 
and segment are stored in the initial data segment. When 
the data segment was equated to the dma segment, the label 
of dma address then pointed to an incorrect value. This error 
resulted in an incorrect memory location when writing data 
to the bubble memory. The problem was resolved by setting 
the si pointer prior to changing the data segment value. 

After BUBBIOS was transfering data properly, the 
data transfer time was observed to be much slower than disk 
transfers. Since bubble memory is appreciably faster than 
floppy disks, an examination of the code for inefficiency 
was conducted. The problem was found to be in the read and 
write routines. At the beginning of these routines the 
bubble was initialized. Since CP/M reads and writes a 128 
byte sector at a time, this condition resulted in extremely 
slow multiple page transfers. The overhead for the 
initialization process was too great for efficient operation. 
After researching the operating manuals, it was determined 
that the bubble did not need to be initialized for each 
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page transferred. The code was then changed for a single 
initialization in the INIT subroutine as described in the 
previous section. The bubble performance improved 
dramatically and will be outlined in the following section. 

2 . Performance Evaluation 

The CP/M-86 utility programs ED, ASM-86, and PIP 
were used to evaluate the bubble memory performance. ED.CMD 
is an object-oriented editor for files. The ED program and 
target files of 17K and 25K bytes were loaded to both an 
iSBC 254 "disk" and iSBC 201 disk. Using the resident ED 
program on each device, the target files were written and 
read. The results are summarized below. 

File Size (Bytes) iSBC-254 (Sec) iSBC 201 (Sec) 

Read Write Read Write 



17K 4.8 4.8 12.3 15.9 

25K 6.7 4.9 15.2 19.2 

Three files were used in the tests with the PIP 

command. The target files were of 6K, 17K, and 60K bytes 

in size. The target files and the PIP.CMD file were 

resident on each device. Each file transfer used the resident 

PIP program. The results are summarized below. 

File Size (Bytes) iSBC 254 (Sec) iSBC 201 (Sec) 

6K 8.3 17.6 

17K 21.5 38.1 

60K 44.9 62.5 

The final test utilized the ASM86 utility program. 

A 17K byte file was assembled using same-device resident 

copies of ASM86, the target file and all of the ASM86 

output files. The results follow: 
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File Size (Bytes) 



iSBC 254 (Sec) 
6 5.6 



iSBC 201 (Sec) 
143 



17k 

From the test results it can be seen that the bubble 
memory offers a significant advantage in data transfer rates. 
Overall the bubble was approximately 50 percent faster than 
the floppy disk. The more I/O intensive the program is, 
the greater the iSBC 254 performance advantage becomes over 
the iSBC 201. The major limiting factor in using the 
bubble system was in the area of transportability. 

Although you can remove the iSBC board, all power must be 
shut down. The floppy disk system has an advantage due 
to the fact that disks can be changed without power 
interruption. Since the bubble modules cannot be easily 
interchanged, the memory capacity is limited. The disk 
system essentially has infinite memory due to the 
interchangeability . 
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VI. CONCLUSIONS 



A. IMPLEMENTATION SUMMARY 

All the objectives set for this thesis were achieved. 

The iSBC 254 bubble memory system was successfully implemented 
and evaluated as a system resource. A driver routine was 
demonstrated and tested using a conventional microprocessor 
operating system (CP/M-86) and a commercially available 
microprocessor (Intel 8086) . This implementation was 
accomplished in such a manner that the bubble system appears 
as a disk resource. This fact allows the user to exercise 
the bubble system with no special procedural requirements. 

The success of this implementation establishes the 
applicability of the bubble memory in a number of 
environments. As a disk resource, the iSBC 254 can now be 
interfaced with other disk systems as a shared resource 
within the CP/M-86 operating system. The demonstrated 
interface with a typical host system suggests the 
compatibility of bubble memory with a wide variety of 
similar microprocessor systems. 

B. FUTURE DEVELOPMENT AND IMPROVEMENT 

The iSBC 254 system has intriguing features not employed 
in this thesis. The system's DMA capability can be 
investigated in future efforts. This capability requires 
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additional hardware, but offers an improved data transfer 
efficiency. If a host system cannot tolerate the software 
requirements of other modes of transfer, DMA may prove to 
be the ideal solution. 

The interrupt driven data transfer mode requires less 
processor overhead than the polled method used here. Since 
the interrupts must be hardwired, some hardware modifications 
are required. If the interrupt routines are efficient 
however, the processor can be freed to perform additional 
tasks . 

Another improvement for the future would be the 
development of Boot Rom and Loader routines using the 
bubble memory. This additional software would free the 
host system from any dependency on conventional disk 
resources . 

C. POSSIBLE APPLICATIONS 

It is apparent from this implementation that a bubble 
memory "disk" is superior to conventional floppy disk drives 
in the area of data transfer rates. Their solid state 
construction and environmental tolerance add to the bubble 
system's advantages. This type of memory system can operate 
in 100 percent humidity, withstand shocks of up to a 
200G force, and withstand temperatures in excess of 65 
degrees centigrade. The major drawbacks have historically 
been high price and limited memory capacity. Although these 
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obstacles still exist, bubble memory system's costs have 
decreased significantly in the past three years. In 
addition, higher density chips promise to greatly increase 
memory capacity. Intel expects to market a 4 Mbit chip 
later this year, followed by a 2 Mbyte chip in 1986. Due 
to the entrenchment of disk systems in the marketplace and 
continuing increases in disk density, it is doubtful that 
bubble memory will ever displace the floppy or hard disk. 
There appears to be a growing demand for bubble memory in 
specialty applications, however. Harsh environments such as 
those encountered in heavy industry can be easily tolerated. 
This fact has made robotics a primary source of utilization. 
Bubble memory's light weight and compactness is invaluable 
to portable computer systems where space and weight are at 
a premium. It's rugged dependability allows the bubble to 
be used where maintenance is infrequent or not possible. 

The features mentioned above have drawn a serious interest 
from the military. The harsh conditions encountered in the 
field preclude many more delicate systems. It is clear that 
bubble memory will continue to grow in importance with 
future developments. As computer systems find more 
applications outside of the ideal environment, the advantages 
of bubble memory will present a viable alternative. 
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APPENDIX A 

PROGRAM LISTING OF BUB.A86 



title 

• 

f 


'Bubble 


Memory 


Controller' 


• 

9 


cseg 




Istart of code 


• 


org 


100h 


• 

9 


9 

abtcmd 


equ 


19h 


Jabort command 


opcomp 


equ 


40h 


Joperation complete mask 


cmdsts 


eou 


0fh 


Icommand/status port 


datreg 


equ 


0eh 


Jdata port 


hi rpt 


equ 


0hh 


Iblock 1 reg point 


intcmd 

• 


eou 


llh 


initialize command 


t 

cr 


ea u 


0dh 


• 

9 


if 


eou 


0ah 


9 


etx 

• 

t 


equ 


03h 


• 

9 


• 

9 

start : 









call abort ;Pover-up command 

* 3jK 

* This routine displays the function menu * 

* and executes the chosen function. * 

* * 



cmdex : 





mo v 


dx, offset msgl 


point to menu message 




call 


prtmsg 


print it 




call 


ge tchar 


get console input 




and 


a 1 , 7 f h 


check console parity 




cmp 


al ,e tx 


compare input to control 




Jnz 


instl 






call 


system 




instl : 


cmp 


al, i' 


Abort command 




jnz 


i nst2 






call 


ahor tc 




inst2 : 


cmp 


al, '2' 


Build any command 




jnz 


i nst3 






call 


se nc md 




inst3 : 


cmp 


al, '3' 


Get BMC status 




jnz 


i ns t4 






call 


ge ts tat 
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Format Bubble 



mst4: cmp 

jnz 
call 
jmp 



al, '4' 
cmdex 
f ormatb 
cmdex 



* £ £ £ £ $. $ £ £ * $ £ V if. J* 5|t jf: $. if # sfc jf: £ 5j£ £ # # $ £ # ^ :£ :£ sjt # « ajt £ ajc £ £ £ # $c 

* * 

* This is the executive routine to write * 

* the parametric registers. * 

* * 
J, J. U. JU J. J. Jr .** JU JU Jr Ju .V —V J. «lr> J. Jr Jr J. J» JU J. j» Jr A J. Jr J. Jr Jr Jr Jr Jr Jr jL> Jr Jr % lr Jr Jr Jr Jr Jr Jr 

<r'r'r'r?TT'TTT'r'>*'r'i*vT'i , ¥*rTTT # PTT *r 'i* n* rr -i* m *r *r“ ¥ t T 'r t ¥ v -r nr ¥ 



wt reg: 



call 


ge tval 


call 


mvtble 


call 


vtregl 


xor 


al , al 


re t 





Jget values from console 
Jmov the values to proper 
• load the values into the 
Jclear al 



j Jits? 

vtresl : 



mov 


al ,bl rpt 


out 


cmds t s , al 


mov 


bx .blklen 


mov 


al ,bl 


out 


datreg, al 


mov 


al ,nfc 


mov 


cl ,4 


shl 


a 1 , cl 


or 


al t bh 


out 


datreg.al 


mov 


al .enable 


out 


datreg, al 


mov 


bx , pageno 


mov 


al.bl 


out 


datreg.al 


mov 


al .bblnum 


mov 


cl, 3 


shl 


al ,cl 


or 


al , bh 


out 


datreg.al 



* 

* 

* 

* 

* 

£££*£*-* » 

;set pointer to BLR(LSB) 
Jset RAC 

•load block length ( termina 

5 this series of instructio 
•combines block length 
;and the nfc value 
; to form a sixteen bit 
Jvord to place in 
;the block length 
J regi st er 

;send enable reg 

♦ to bmc 

Jload starting page addres 

•this series of instructio 
Jcombines page address. 

• and bubble number 

J to form a sixteen bit 
Jword to place in 
•the address 
; register 



* This routine loads the parametric 

* registers in preparation for com- 

* mand execution. 
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* £ 

* The routine aborts the bubble memory * 

* # 



abort : 



mo v 


cx,0ffffh 


Jinit time out cntr 


mo v 


bh , opcomp 


Jmove 40h to bh 


mo v 


al , abtcmd 


♦ load abort command 


out 


cmds t s t al 


♦ send abort command 


busy : 


in 


al ,cmds ts 


Jread status reg 


and 


al,B3h 


Jmask for busy 


Jz 


poll 


; if busy jump to poll 


dec 


ci 


Jelse decrement time out 


lor 


ax , ax 


Jclear ax reg 


cmp 


cx ,ax 


Jcheck time out count=0 


jnz 


busy 


♦time left, try busy again 


Jrcp 


retl 


Jreturn error 


poll : 


in 


al , cmds ts 


Jread status reg 


test 


al, bh 


‘wait for status=4:0h 


jnz 


ret2 


; if operation complete ret 


dec 


cx 


;else decrement time out 


ior 


ax , ax 


♦clear ax reg 


cmp 


cx , ax 


Jcompare timeout to zero 


jnz 


poll 


;try again 


re tl : 


in 


al .crndsts 


Jreturn with status fail 


mo v 


dx, offset msg6 


Jabort fail msg 


call 


prtmsg 


’♦print the message 


call 


system 


;jump to system 


re t2: 


mo v 


di, 27600 


Jdelay 100ms 


loop: 


ior 


ax, ax 


♦clear ax reg 


dec 


dx 


Jdecrement count 


cmp 


ix ,ax 


Jcompare timeout to zero 


Jnz 


loop 


J try again 


in 


al , cmds ts 


Jget status 


ret 

• 


I 




; £ 




* 


;* This routine initializes 


the bubble * 


; * 




* 


• 3{z^^r' 3 r : ^r'^ 3 r' 'r^r 'T' -fc 


£***$*$£*£*$£***££ 




initz : 


mov 


cx, 0ffffh 


Jset timeout counter 
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mov 


bh, opcomp 


Imov 40h into bh 






mov 


al ,intcmd 


{load init command 






out 


cmdsts ,al 


{send it 




busyl : 


in 


al , cmdsts 


Jget status 






and 


al ,80h 


{check for busy 






Jz 


polll 


Jno-try again 






dec 


cx 


{decrement timeout 






xor 


ax ,ax 


{clear ax 






cmp 


cx , ax 


{compare timeout to 


zero 




Jnz 


busy 1 


{try again 






Jmp 


retal 


{return error 




pol 11 : 


. in 


al , cmdsts 


{get status 






ior 


al , bh 


{check for op comp 






Jz 


re ta2 


{yes-return op complete 




dec 


cx 


{decrement timeout 






ior 


ax, ax 


{clear ax 






cmp 


cx ,ax 


{compare timeout to 


zero 




Jnz 


polll 


{try again 




re tal : 


in 


al , cmdsts 


{get status 






mov 


dx, offset msg4 


{timeout failure 






call 

ret 


pr tmsg 


• 

f 




re ta2 : 


in 


a 1 , cmds t s 


{get status 






mov 


dx, offset msg2 


{operation complete 






call 


prtmsg 


• 

f 






re t 








! 

J T^TTTT 
















* 




{ * This routine converts the 


console input * 




;* to 


hex values and loads these values * 




{* into the 


proper memory locations. * 










* 






34: 5*c =r 


# # =r =r * ## # # 





mv tble : 



mov 


bx, offset 


temptbl {set pointer 


mov 


dl , 04 


{# of digits' in blklen 


call 


convert 


{convert decimal to hex 


mov 


blklen,ax 


{mov hex value to mem add 


mov 


dl , 01 


iff of digits in nfc 


call 


convert 


{convert decimal to hex 


mov 


nf c ,al 


{mov. to proper address 


mov 


d 1 , 02 


iff of digits in enable 


call 


c onvert 


{convert decimal to hex 


mov 


enable, al 


{mov to proper address 


mov 


dl , 04 


iff of digits in pageno 
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mo v 


pageno. 


ax 


i mo 


V 


to prop 


er ad dr 


mov 


dl ,01 




;# 


of 


d igi ts 


i n 


bblnum 


call 


convert 




; co 


nv 


ert dec 


imal 


to hex 


mo v 


bblnum. 


al 


; mo 


ve 


to proper 


addr 


ret 
















. J. 

‘ T'T'T »r 


*»' V t “rn' *r t v 


### 


4» 4* 4# JU Jp JU JU 4. 

«.* Jp Jp Jp pp »p Jp pp Jp 


«U4U 

•r <v 


JU JU »U JU JU 4. JU 
'i* *T* *TT '■i- -r T 


04 OL> 
¥ 'i* 

3*{ 




i rou 


tine calls 


the 


operatin 


6 


system 


*v 

❖ 




)rint 


the message p 


ointed to 


by DX 






I###* 


«<* »V 4* 4* 4. 4. 4. JU vL> 4. 4» 

'f v t *r t T'T'irnr 'Tn' 


4# 4» JU 


########### 




OL. OU 
-i* 




mov 


cl , 09h 




• 

9 










in t 


224 




• 











1 ^ 
;* 



prtmsg: 



ret 

############################################# 
# # 

* This routine will jump from this program * 

* hack to the operating system * 

ou <JU 

^ -r 

/)( #|« ^ rp ^p #p pp rp Jj» Pp rp Jp <p pp >p »p pp pp »(« J,» pp pp ps rp pp rp *p /p »p #p p* «p pp «p »p Jp *p #, ■ pp rp pp 

system: 



mov 
mov 
in t 



cl,00h 
il , 00h 
224 



############################################# 
# # 

* This routine uses the operating system * 

* to get the character from the console * 

* # 
3pC 9p pi 3p 3p >p <(* Jp 3$S ip 3^2 ip ip 3^C ip Ip *JC ip 3$C ip 3p iy ip ip ip i(S ijc }jc i^C Jp Jjt ip ip 3p J$S <p ip 3p !p l(* Ip ^ jjC 

getchar : 



mov 


cl , 01h 


in t 


224 


mov 


t empl ,al 


ret 





## * # * sj: si: # * Jit £ Sjt * $ # ## jjt #£ Sic Sjt # ^ ### J# ### # ««««*## * # 

# # 

* This routine calls abort and initializes * 

* the bubble memory. * 

* # 

Jjt ###############* Sjc 3 |£ ## sit ####### ^ ####### Sjt # Si£ 

abort c : 

JSend abort command 
;move ds location to dx 
iset es equal to ds 

iset source pointer 



call 


abort 


mo v 


d x, d s 


mov 


es ,dx 


mov 


si, offset tablel 
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mov 


di , offset 


blklen 


;set dest. pointer 


mov 


cx , 7 




Iset 7 iterations 


cld 






Jclear direection flag 


rep 


movs al, 


a 1 


Jload bytes from table 


call 


w tregl 




JWrite BMC registers 


call 


i n it z 




;Send initialize command 


xor 

ret 


al , al 




Jclear al before return 







£££= s 

* * 

* This rountine executes the send any com* * 

* mand function. * 

* . . * 
JU JU X X X X X X* X X X X X X X X X X X X X X X X X X X. X X X X X X X X X X X X X X X X X X X 

T t *r *r tttttt *r -r T T T *r *r *r ¥ *r* T X TTTTT'i'^TIr 



sencmd : 



call 

iot 

ret 



ge tcmd 
al , al 



iget command and execute 
Jclear al before return 



.XXX**'^'? 



* This routine displays the status byte 

* on the console. 

$ 



getstat : 



* 

$ 

* 

$ 



vb 1 rm : 



rd sk : 



rdblr : 



vrtblr : 



► «U JU JU U* 

* -r^T-TT' r* 


X X X X X X X. X X X X XXX .t* X- X 

ir 'i v v t 'r *r ¥ *r ¥ t n‘ ¥ *r *r* ¥ 'r "i* t 




call 


s tos tat 


• 

* 


mov 


dx.offset status 


;print status byte 


call 


prtmsg 


• 

> 


mov 


dx.offset msgl3 


Jprint status msg 


call 


prtmsg 


• 

f 


xor 


al ,al 


Iclear al before return 


ret 






xor 


al ,al 


Jcommand not implemented 


ret 




• 


xor 


al ,al 


Icommand not implemented 


re t 






xor 


al ,al 


Icommand not implemented 


ret 


• 


- 


xor 


al ,al 


Jcommand not implemented 


re t 







73 



vrtbl 





xo r 


a 1 , a 1 


5 command 


not 


implemented 


• 


ret 










f 

rdf sa : 


xor 


al ,al 


Jcommand 


not 


implemented 


• 


re t 










f 

wrtsk: 


xor 


a 1 ,a 1 


; command 


not 


implemented 


• 


ret 










rdbl : 


xo r 


al , al 


5 command 


not 


implemented 


• 


ret 










» 

rdcd : 


xor 


a 1 ,a 1 


; command 


not 


implemented 


• 


re t 










f 

resetf : 


xor 


a 1 ,a 1 


; command 


not 


impl emen ted 


• 


ret 










f 

purge : 


xor 


al , al 


^command 


not 


implemented 


• 


re t 










t 

reset : 


xor 


a 1 , al 


5 command 


not 


impl emen ted 




ret 












j. j. x 
‘ **>' *T ^ *V 


^?r^^^ 7 r« ! r' 3 r'< c? } e 3r 


^ 3»t sfc 5j? 




; # 












;* This 


i s 


the calling 


routine to write 


a 


* 


;* 128 


byte 


page into 


bubble memory. 




* 












* 








bmwrt : 














call 


a bo r t c 


Jabort and initialize the bubble 




call 


write 


Jwrite to the bubble 


memo ry 




xor 


al ,al 


;dear al before 


return 



ret 

> 

;# # 

; * This is the calling routine to read a * 
;* 128 hyte page from bubble memory. * 

; * # 

bmrd : 
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' 






call 


abor tc 


;abort 


and 


initialize the bubble 


call 


v treg 


; load 


the 


parametric registers 


call 


read 


; read 


from 


the bubble 


xor 


a 1 ,al 


; clear 


al 


before return 


ret 











; ^##*#**^****** ******************** **??***%**%* 
J # * 

i* This routine reads the status register * 
i * hit hy bit and records the bit value in * 
i* memory as an ascii 1 or 0 . * 

j* # 

a X X X X x Vf X X X x X x x X X X X X X X X «l. X X X X X X X *l» X X X X X X X X X X X x *X> X 
• ^TTT'i'T'rYT'rT^Tr *!*¥ ^-T'-T'-nr'r‘T' a r‘nrn v n' 3 r'r'r- 3 r*>' 3 i'n* 3 r''r 3 i''T c -%''r''T' ; X‘nr'i''nr' 3 r 

stostat : 





in 


al , cmds ts 








mov 


bx, offset 


( status+3 ) 


iset pointer in bx 




mov 


cx ,8 




; set number of loops 


again : 


shl 


al , 1 




; shi ft msb to left 




J* 


skip 


[bx] , 30h 


ijump if carry = 1 




mov 


byte ptr 


istore an ascii 0 




jmp 


next 






skip : 


mov 


byte ptr 


[bx] ,31h 


istore an ascii 1 


next : 








* 




inc 


bx 




imove pointer up one 




loop 


again 




; loop to beginning 




xor 


bx , bx 




iclear bx 




re t 









• * * 
i* This routine gets the values of the para-* 
i* metric registers from the console and * 
;* stores them in memory prior to conversion* 
i* to hex values. * 

getval : 



mov 


dx, offset msg7 


ipoint to msg 




call 


prtmsg 


iprint it 




mov 


dx, offset msg8 


ipoint to msg 




call 


prtmsg 


iprint it 




call 


conin 


iget input from 


console 


mov 


temptbl , al 


;mov value to temp table 


call 


c oni n 


iget input from 


console 


mov 


temptbl+1 , al 


imove to memory 


location 


call 


conin 


iget input from 


console 


mov 


temptbl+2 , al 


imove to memory 


location 


call 


conin 


»get input from 


c onsole 


mov 


temptbl+3 ,al 


imove to memory 


location 
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mov 


di, offset msg9 


Jprint next msg 




call 


prtmsg 


• 

9 




call 


c onin 


Jget input from 


console 


mov 


temptbl+4 ,al 


Jmove to memory 


location 


mov 


di, offset nsgl0 


Jprint next msg 




call 


prtmsg 


• 

V 




call 


conin 


Jget input from 


console 


mov 


temptbl+5 ,al 


Jmove to memory 


location 


call 


conin ' 


jget input from 


console 


mov 


temptbl+6 , al 


Jmove to memory 


location 


mov 


di, offset msgll 


Jprint next msg 




call 


prtmsg 


• 

9 




call 


conin 


Jget input value 


mov 


t emptbl+? , al 


Jmov to memory location 


call 


conin 


Jget input from 


console 


mov 


t emptbl+8 , al 


Jmove to memory 


location 


call 


conin 


Jget input f rom 


console 


mov 


temptbl+9 , al 


Jmove to memory 


location 


call 


conin 


Jget input from 


console 


mov 


temptbl+10 ,al 


Jmove to memory 


location 


mov 


ii.offset msgl2 


Jprint next msg 




call 


prtmsg 


• 

9 




call 


c oni n 


Jget input from 


console 


mov 


temptbl+11 ,al 


Jmove to memory 


location 


ior 

ret 


ax ,ax 


Jclear ax register 



I 



JU JU J# JLf mAr %V JL JU %♦# JL «l# Jf ^ X «**• %V. %t j<* J# Jf j* j* J<» J* j- JU Jr Jr Jr Jr X J# Jr 

ttv v t¥ttv tvt vt vt w -v t ^vttt v v *r ~r*r 'i % # r T^r-rv nr *r *r v 

* 5ft 

* This routine converts the decimal values * 

* input from the console to hex values * 

* * 



convert : 

mov temp2,0000 

cmp dl , 05 . 

jz convl0k 

cmp dl,04 

jz conv01k 

cmp dl , 03 

jz convl00 

cmp dl,02 

jz conv010 

cmp dl,01 

jz . conv001 

call system 

convlCk: 

mov al , [hi] 

sub a 1 , 30h 

mov di t 10000 

mov ah, 00 



Jclear memory location 

Jsee if there are five digi 

;yes-start at 10K 

Jsee if there are four digi' 

Jyes-start at 011 

Jsee if there are three dig. 

Jyes-start at 100 

Jsee if there are two digit 

Jyes-start at 10 

Jsee if there is one digit 

Jyes-start at 1 

J jump back to system if zer 

Jload value at bi pointer 
Jconvert it from ascii 
Jload di 
Jclear ah 
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tnul dx 

mov temp2,ax 

inc bx 

conv?lk : 

mov al , [bx] 

sub al,30h 

mov _ d x , 1000 

mov ah ,00 

mul dx 

mov dx,ax 

mov ax , t emp2 

add ax,ax 

mov temp2,ax 

Inc bx 

convl00 : 

mov al , [bx] 

sub al,30h 

mov dx,100 

mov ah, 00 

mul dx 

mov dx,ax 

mov ax,temp2 

add ax ,dx 

mov temp2,ax 

inc bx 

coov010 : 

mov al , [bx] 

sub a 1 ,30h 

mov d x , 10 

mov ah, 00 

mul dx 

mov dx,ax 

mov ax,temp2 

add ax,dx 

mov temp2,ax 

inc bx 

conv001 : 

mov al , [bx] 

sub al,30h 

mov ah, 00 

mov dx,ax 

mov ax,temp2 

add ax,dx 

inc bx 

re t 



Jmultiply al by 10000 
Jstore it 

{increment pointer 

Jload value at bx pointer 
Iconvert from ascii 
jload dx 
Jclear ah 

Jmultiply al by 1000 
Jstore result in dx 
Jget result from previous 
Jadd the two 
Jstore the total 
{increment the pointer 

Jload value at bx pointer 
{convert from ascii 
Jload dx 
Jclear ah 

Jmultiply al by 100 
Jstore result in dx 
Jget total from previous 
Jadd the two 
Jstore the total 
{increment the pointer 

Jload value at bx pointer 
Iconvert from ascii 
Jload dx 
Jclear ah 

Jmultiply al by 10 
Jstore result in dx 
Jset total from previous 
jadd the two 
Jstore the total 
{increment the pointer 

Jload value at bx pointer 
Iconvert from ascii 
jclear ah 

Jstore result in dx 
Jget total from previous 
jadd the two 
{increment the pointer 
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v *s % *v t 

* # 

* This routine reads 12S bytes from the * 

* bubble memory * 

* # 

XJU X XX XX 
TTV^ T O' *r T T 'P ¥ 



reed : 





mov 


cx, 128 




mov 


bx , cx 




mov 


d i .offset 




mov 


ax , ds 




mov 


es , ax 




mov 


a 1 , 12h 


. __ 


out 


cmds ts , al 




mov 


cx, 0f ff fh 


readl : 


in 


al ,cmdsts 




test 


al , S0h 




loopz 


readl 




Jcxz 


errorl 




mov 


cx ,bx 


read2 : 


in 


a 1 ,cmdsts 




test 


al ,01h 




Jz 


read 3 




in 


al .datreg 




stos 


al 




loop 


read2 




Jmp 


pause 


read3 : 


mov 


dx,0ffffh 




test 


a 1 , 80h 




Jz 


skipl 




dec 


dx 




cmp 


dx , 0 




Jnz 


read2 


skipl : 


sub 


bx , cx 




mov 


t emp3 , bx 


pause : 


Jmp 


error2 


in 


al .cmdsts 




test 


a 1 , 80h 




Jz 


contin 




mov 


cx ,0f fffh 


pollb: 


in 


al .cmdsts 




test 


al ,80h 




loopnz 


pollb 




Jcxz 


errorl 



contin : 



J128 byte count 
Isave count in bx 
datbufjset pntr to buffer 

* s e t es equal to ds 

f 

Jload read command 
Jsend it , 

Jload cx with counter 

‘.get status 

Jtest for busy 

Jwait for busy 

Jtimeout error 

Jload # of bytes in ci 

Jget status 
Jtest for fifo empty 
Jyes, check for busy 
Jno,get data 
Jstore it 
J try agai n 

Jvait for good status 

Jtimeout in dx reg 

Jcheck for busy 

• 

Jdecrement timeout cntr 
Jcompare timeout to 0 
Jstill busy-wait 
Jbytes transferred in bi 
Jstore byte trans count 
J op fail error 

Jget status 
Jcheck for busy 
Jnot busy-send status 
Jset up timeout cntr 

Jget status 
Jcheck for busy 
Jwait for busy to clear 
Jbut not too long 
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mov 


dx , of fset 




call 
re t 


prtmsg 


errorl : 


call 


gets tat 




mov 


ix, offset 




call 
re t 


prtmsg 


error2 : 


call 


ge ts tat 




mov 


dx , of fset 




call 

ret 


prtmsg 



msg2 ;op complete msg 

t 



Jdisplay status byte 
msg4 Jtimeout failure 
» 



Jdisplay status byte 
msg3 Jop fail msg 



* 



This routine writes 128 bytes into the 
bubble memory 



- nr or V *r nr ■¥• or t* Or *r o' or o- or or *r* nr* or o- o' *r or o** or o' or V o~ o* -r *r- * 



* 

* 

* 



write: 




mov 


cx, 128 




mov 


bx ,cx 




mov 


a 1 , ldh 




out 


cmds ts , al 




push 


bx 




call 


w treg 




POD 


bx 




mov 


s i , of f s et 


writea : 




mov 


al ,13h 




out 


cmdsts ,al 




mov 


cx.Bffffh 


wr i tel : 




in 


al .cmdsts 




test 


al , 80h 




loopz 


writel 




jcxz 


e rro rll 




test 


al , 01h 




loopz 


writel 




Jcxz 


e rro rll 




mov 


cx ,bi 


wr i te2 : 




in 


al .cmdsts 




test 


a 1 , 01h 




jz 


write3 




lods 


al 




out 


datreg.al 




loop 


w ri t e2 




Jmp 


paus el 



J# of bytes to write 
•save in bx 
Jfifo reset cmd 
Jissue it 
Jsave bx 

Jwrlte registers 
Jretrieve bx 
wrtbufJset pointer 

Jload write cmd 
;issue it 
Jtimeout cntr 

Jget status 
Jcheck for busy 
Jwait for busy 
Jtimeout error 
Jcheck for fifo ready 
Jwait for fifo 
Jtimeout error 
Jload # of bytes in cx 

Jget status 

Jcheck for fifo ready 

I no-wai t 

Jyes-get data 

Jsend data to bubble 

Jgo again 

Jreturn good status 
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. 



vri te3 : 



mov 


dx , 3f ff f h 




Jset timeout cntr 


test 


a 1 , 80h 




Jtest for busy 


J* 


skipll 




• 

f 


dec 


dx 




Jdec timeout cntr 


cmp 


ix ,0 




Jcompare timeout to 0 


jnz 


w rit e2 




;try again 


skipll: sub 


bx, cx 




;# of bytes t rans . 


jmp 


error22 




Jop fail error 


pausel : 








in 


al , cmdsts 




Jget status 


test 


al ,9 0h 




Icheck for busy 


Jz 


continl 




Ireturn staus/op comp. 


mov 


cx,0f fffh 




Jset timeout 


pollbl : 








in 


a 1 , cmds t s 




>get status 


test 


al , S0h 




Jcheck for busy 


loopnz 


pollbl 




; wait 


Jcxz 


erro rll 




Jbut not too long 


continl : 








call 


gets tat 




Jdisplay status 


mov 


dx , of fs et 


msg2 


Jop complete msg 


call 


prtmsg 




• 

» 


re t 








errorll : 








call 


gets tat 




Jdisplay status 


mov 


ix , of f se t 


msg4 


Itimeout failure 


call 


prtmsg 




• 

f 


re t 








error22 : 








call 


getstat 




Jdisplay status 


mov 


dx .offset 


msg3 


;op fail msg 


call 


prtmsg 




• 

» 


ret 









J* £ 

;* This routine presents the command menu for * 

;* the send-any-command function in the main * 

;* menu. It also calls the appropriate suh- * 

;* routines for the chosen commands. * 

; * # 

getcmd : 

mov ix, offset msgl4 IPrint menu for commands 
call prtmsg » 

call getchar JGet console input 

and al,7fh ; 

cmp al.etx JCompare with control C 

Jnz cmd0 J 
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„?» 












call 


system 


cmd0 : 


cmp 


al , '0 ' 




jnz 


cmdl 




call 


vblrm 


cmdl : 


cmp 


al, '1' 




jnz 


cmd2 




call 


a bor tc 


cmd2: 


cmp 


a 1 ' 2- ' 




jnz 


cmd3 




call 


bmrd 


cmd3 : 


cmp 


al, '3' 




Jnz 


cmd4 




call 


bmwr t 


cmd4 : 


cmp 


a 1 , '4 ' 




jnz 


cmd5 




call 


rdsk 


cmd5 : 


cmp 


al , '5 ' 




jnz 


cmd6 




call 


rdbl r 


cmd6 : 


cmp 


al, ' 6 ' 




jnz 


cmd7 




call 


wrtblr 


cmd7 : 


cmp 


al , '7 ' 




jnz 


cmdS 




call 


vrtbl 


cmdS : 


cmp 


al , '8 ' 




jnz 


cmd9 




call 


rdf sa 


cmd9 : 


cmp 


al, ' 9 ' 




' jnz 


cmda 




call 


abortc 


cmda : 


cmp 


al , 'A ' 




jnz 


cmdb 




call 


wrtsk 


cmdb : 


cmp 


al , ' B ' 




Jnz 


cmdc 




call 


rdbl 


cmdc : 


cm? 


al , 'C' 




jnz 


cmdd 




call 


rici 


cmdd : 


cmp 


al, 'D' 




jnz 


cmde 




call 


resetf 


cmde : 


cmp 


al, 'E' 




jnz 


cmdf 




call 


purge 


cmdf : 


cmp 


al.'F' 




call 

ret 


rese t 



* 

conin : 



If Control C jmp to system 
Write bootloop register mas! 

Initialize command 

Read "bubble data 

Write bubble data 

Read seek 

Read bootloop register 
Write bootloop register 
Write bootloop 

! 

Read FSA status 
Abor t 

Write seek 
Read bootloop 
Read corrected data 
Reset fifo 
MBM purge 
Sortware reset 
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mo v 
int 
ret 



cl ,01h 
224 



£ fc £ £ # £ £ # $ £ £ =r 5r = 



= £ * £ £ £ £ £ # £ # * $ # £ 



* * 

* This routines writes 0e5h into each byte * 

* in the bubble memory system. This is * 

* Dreoaratory to using the bubble as a * 

* * ‘ disk * 

* =* 



. X JU JU J. . 

' -V 'r -r 'C *r - 






ju a. x ««. .v. , 



'r -r V v n*- t 'i- 'r -i' -t — i ' t * t* 



f orma tb : 

mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 
mo v 

forma tl : 

mov 

ou t 

mov 

mov 

call 

mov 

push 

mov 

call 

pop 

dec 

cmp 

jnz 

ret 



blklen 


rv 


nfc 


rb 


enable 


rb 


pageno 


rv 


bblnum 

• 


rb 


• 

tablel 

• 


db 


9 

table2 

• 


rb 


9 

1 3 bl 63 

• 

9 


rb 



dx ,204? 
ax , 0001h 
blklen , ax 
al ,02h 
n f c , al 
a 1 , 20h 
enable, al 
al ,00h 
bblnum, al 



;set counter equal to # of 
Jload block length 
;block length equal 1 
Jload nfc value 
Jnfc equal 2 

Jload enable register value 
Jenable equal 20h(level 1 E 
Jclear al 
Jbblnum equal 0 



a 1 , ldh 
cmds ts ,al 
ax ,dx 
pageno , ax 
w tregl 
bx ,128 
dx 

s i , offset 
writea 
dx 
dx 

dx ,0 
f ormatl 



;ioad reset fifo cmd , 

; send it 

Jmove value in dx to ax 
Jpage address equal to valu 
Jload the parametric regist 
;bx eoual byte count 
Isave dx value 
frmbuf Jset pointer 

Jvrite a 128 byte page 
Jretrieve dx value 
Jdecrement dx by one 
Jcompare dx to zero 
; i f not zero go again 



l ; 

l ; 

l ; 

l ; 

l ; 

00,00,01 ,20h ,03h ,0f fh , 01 

7 

7 
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» .* 










tempt Pi rb 12 

tempi rb 1 

temp2 rw 1 



temp3 rw 

f 

datbuf rb 

f 

frmbuf dP 
dp 
dp 
... dP 
dp 
dp 
dP 
dp 
dP 
dP 
dP 
dP 
dP 
dp 
dP 

vrtPuf dp 
dP 
dP 
dp 
dP 
dP 
dp 
dP 
dP 
dP 
dP 
dP 
dP 

tempst rP 

t 

status dp 

t 

msgl dP 
dp 
dp 
dP 
dP 
dP 



1 



128 



0e5h , 0e 5h , 0e 5h , 0e5h , 0e5h , 0e5h , 0e5h , 0e5h , 0e5h 
0e5h , Pe5h , 0e5h , 0e5h ,0e5h , 0e5h , 0e5h , 0e5h , 0e5h 
0e5h , 0e5h , 0e5h , 0e5h , 0e5h,0e5h ,0e5h , 0e5h , 0e5h 
0e5h ,0e5h , 0e5h ,0e5h ,0e5h , 0e5h ,0e5h , 0e5P , 0e5h 
0e5h , 0e5h , 0e5h , 0e5h , 0e5h , 0e5P , 0e5h , 0e5h, 0e5h 
0 e5h , 0e5h , 0e5h , 0e5h , 0e5h t 0e5h , 0e5h , 0e5h , 0e5h 
0e5h,0e5h,0e5h f 0e5P ,0e5h,0e5it, 0e5h , 0e5h , 0e5h 
0e5h , 0e5h , 0e5h , 0e5h , 0e5h , 0e5h , 0e5h , 0e5b , 0e5b 
0 e5h , 0e5h , 0e5h ,0e5h , 0e5h , 0e5h ,0e5b , 0e5b , 0e5b 
0e5h,0e5h,0e5h t 0e5h t 0e5b,0e5h,0e5b t 0e5b,0e5b 
0e5h , 0e5b , 0e5h , 0e5b , 0e5b , 0e5b , 0e5h , 0e5b , 0e5h 
0e5h , 0e5b , 0e5h , 0e5h ,0e5h , 0e5b , 0e5h , 0e5h , 0e5b 
0e5b , 0e5h , 0e5h ,0e5h ,0e5b , 0e5b , 0e5h , 0e5b , 0e5h 
0e5h , 0e5h , 0e5h , 0e5h , 0e5b , 0e5b , 0e5b , 0e5b , 0e5b 
0e5b , 0e5h 



00h , 01b , 02 h , 03h , 04h ,05h , 06h , 07h ,08b ,09b 
0ah,0Ph,0ch,0dh,0eh ,0f b , 10h, 1 lb ,12h , 13b 
14b, 15b ,16h,17h, 18b ,19b, lab, lPb ,lcb,ldh 
leb,lfh,20h,21b, 22b ,23h , 24h , 25b ,2 6h , 27h 
28b , 29h , 2ab , 2Pb , 2ch ,2dh , 2eb, 2fh ,30h , 31 h 
32b , 33h , 34b ,35b , 36b ,37h ,38b , 39b ,3ah , 3Ph 
3cb,3dh,3eh ,3fh,40h ,41b , 42h , 43h ,44h , 45b 
46h , 47b , 48h , 49h , 4ah ,4Ph , 4ch , 4dh ,4eh , 4f b 
50b , 51b , 52h , 53b , 54h , 55h , 56h , 57h , 58h , 59h 
5ab , 5Pb , 5cb , 5dh , 5eb ,5fh ,60h , 61h ,62h , 63b 
64h , 65b , 66 h , 67h , 68h , 69h , 6 ah , 6Ph , 6ch , 6dh 
6eh,6fh,70h,7lh,72h,73h,74h,75h,76h ,77b 
78b , 79h , 7ah , 7Ph ,7ch ,7dh , 7eh , 7fh 
1 



cr, if , ' '/r/r.r/r.r/r/iMMf 



cr,lf , ' 
cr,lf , ' 
cr , 1 f , If , 
c r , 1 f , ' 2 
cr , 1 f , ' 3 
cr , If , ' 4 



Menu for Bubble Memory Control] 
select one function' 

1 - Abort Command' 

- Send Any Command' 

- Get Bubble Memory Status' 

- Format Bubble Memory ', cr , If ,'$ ' 
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msg2 

• 


db 


cr, If , 'Operation Complete ', ' $ ' 


9 

msg3 

• 


db 


cr,lf, 'Operation Failed', '$' 


9 

msg4 

• 


db 


cr, If, 'Time Out Failure', '$' 


9 

msg5 

• 


db 


cr,lf,'No Response ' 


msg6 

• 


db 


cr,lf,'Abort Fail','$' 


9 

msg7 

• 


db 


cr, If, 'Enter Parametric Register values', '$ 


9 

msgS 

• 


db 


cr, If, 'Block Length 0-204? (enter 4 digits) 


9 

msg9 

• 


db 


cr , If , 'Number of Channels 0-4 (enter 1 digi 


9 

msgl0 


db 


cr,lf,'Set Enable Register 1-99 (enter 2 di 


9 

msgll 

• 


db 


cr, If, 'Page Number 0-2047 (enter 4 digits)' 


9 

msgl2 

• 


db 


cr , 1 f , 'Bubble Number 0-3 (enter 1 digit)',' 


9 

msgl3 

• 


db 


cr , 'This is the Status By te ' , cr ,1 f , '$ ' 


9 

msgl4 


db 


1 

cr,lf,' Menu for Command Selection 




db 


cr,lf , ' Select One 




db 


cr,lf,lf,' 0 - Write Bootlocp Register Mask 




db 


cr,lf,' 1 - Initialize' 




db 


cr,lf,' 2 - Read Bubble Bata' 




db 


cr,lf,' 3 - Write Bubble Data' 




db 


cr,lf,' 4 - Read Seek' 




db 


cr,lf,' 5 - Read Bootloop Register' 




db 


cr,lf,' 6 - Write Bootloop Register' 




db 


cr,lf,' 7 - Write Bootloop' 




db 


cr,lf,' 8 - Read FSA Status' 




db 


cr ,1 f , ' 9 - Abort ' 




db 


cr,lf,' A - Write Seek' 




db 


cr,lf,' B - Read Bootloop' 




db 


cr,lf,' C - Read Corrected Data' 




db 


cr ,lf , ' D - Reset FIFO' 




db 


cr,lf,' E - MBM Purge' 


• 


db 


cr,lf,' F - Software Reset ' ,c r, If ' 


9 


end 
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appendix b 

PROGRAM LISTING OF SINGLES. DEF 

disks 3 



d i skdef 
diskdef 
d i skdef 
endef 


0,1 ,26,6.1024,243,64,64,2 
1,0 

2,1,26,0,1024,243,64,64,2 



4 
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APPENDIX C 

PROGRAM LISTING OF SINGLES. LIB 



• 

> 


DISKS 3 








dp ta se 


equ 


$ 


JBase of Disk Parameter 


Bloc 


dpeB 


dw 


x 1 10 ,0000h 


{Translate Tatle 




dw 


0B00h , 0000h 


{Scratch Area 






dv 


d irtuf ,dpt0 


JDir Buff, Parm Block 






d v 


c sv0 t alv0 


JCheck, Alloc Vectors 




dpel 


• dv 


xltl ,0000h 


{Translate Tatle 






d v 


0Be0h ,0000b 


{Scratch Area 






dv 


d irtuf , dptl 


JDir Euff, Parm Block 






d v 


c svl ,alvl 


JCheck, Alloc Vectors 




d pe2 


d v 


xlt2,0000h 


JTranslate Tatle 






d v 


0000h ,0B00h 


JScratch Area 






dv 


d i rtuf , dpt2 


JDir Buff, Parm Block 






dv 


c sv2 ,alv2 


JCheck, Alloc Vectors 




• 

1 


DISKDEF 


0,1,26,6,1024,243,64,64,2 




dp c0 


equ 


offset $ 


JDisk Parameter Elock 




d v 


26 


JSectors Per Track 


) 




d t 




J Block Snift 






dt 


7 


JBlock Mask 






dt 


0 


JExtnt Mask 






dv 


242 


JDisk Size - 1 






dv 


53 


{Directory Max 






dt 


192 


JAllocB 






dt 


0 


JAllocl 






dv 


16 


JCheck Size 






dv 


2 


JOffset 




Xlt0 


equ 


offset $ 


{Translate Tatle 






dt 


1 ,7,13,15 








dt 


25,5,11 ,17 








dt 


23,3,9,15 








dt 


21 ,2,8,14 








dt 


20,26,6,12 








dt 


18,24,4,10 








dt 


16,22 






a ls0 


equ 


31 


JAllccation Vector Size 




CSS0 


equ 


16 


JCheck Vector Size 




• 

> 


DISKDEF 


1,0 






dptl 


equ 


dpt0 


{Equivalent Parameters 




alsl 


equ 


alsB 


{Same Allocation Vector 


Size 


c ssl 


equ 


CSS0 


JSame Checksum Vector Size 


xltl 


equ 


xlt0 


JSame Translate Tatle 




• 

> 


DISKDEF 


2,1,26,0,1024,243,64,64,2 




d pt2 


equ 


offset $ 


JDisk Parameter Block 
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d w 


26 


JSectors Per Track 




dt 


3 


JBlock Shift 




dt 


7 


JElock Mask 




dt 


0 


JExtnt Mask 




dw 


242 


JDisk Size - 1 




d v 


63 


J Directory Max 




dt 


192 


JA11OC0 




dt 


0 


; Aiioci 




dw 


16 


JCheck Size 




d w 


2 


J Of f set 


xlt2 


equ 


offset $ 


^Translate Tatle 




dt 


1,2, 3, 4 






dt 


5, 6, 7, 8 






dt 


S,10,H ,12 






dt 


13,14,15,16 






dt 


17,18,19,20 






dt 


21,22,23,24 






dt 


25,26 




3 ls2 


equ 


31 


JAllocaticn Vector Size 


:ss2 


equ 


16 


JCheck Vector Size 


• 

> 

• 


ENDEF 






> 

• 

> 

• 


Uninitialized Scratch Memory Follows: 


tegda t 


equ 


offset $ 


JStart of Scratch Area 


i irtuf 


rs 


128 


JDirectory Buffer 


a lv0 


rs 


a 1 s0 


JAlloc Vector 


CSV0 


rs 


CSS0 


JCheck Vector 


a lvl 


rs 


alsl 


JAlloc Vector 


csvl 


r s 


cssl 


JCheck Vector 


a lv2 


r s 


als2 


JAlloc Vector 


csv2 


r s 


c ss2 


JCheck Vector 


eridda t 


equ 


offset t 


JEnd of Scratch Area 


datsi z 


equ 


offset i-tegdat 


JSize of Scratch Area 




dt) 


0 


J Marks End of Module 
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APPENDIX D 

PROGRAM LISTING OF BUBBIOS.A86 



-V 



title 



'Customized Basic I/O System' 






* =* 

* This Customized BIOS adapts CP/M-86 to * 

* tbe following hardvare configuration * 

* Processor: iSBC 8612 * 

* Controller: iSBC 201 * 

* iSBC 254 Buttle Memory * 

* memory model: 8080 * 

* Programmer: Gary Theis * 

* 5 ? 

* Revisions: * 

* * 






true 


equ 


-i 




false 


equ 


not 


true 


cr 


equ 


0db 


Jcar 


If 


equ 


0ab 


; 1 in 


rrax_ret r ies 


equ 


10 


; for 



riage return 
e f eed 

disk i/o , before perm error 






* Loader t-ios is true if assembling the * 

* LOADER 3I0S, otherwise EIOS is for the * 

* CPM.SYS file. * 

* * 



*:**£:£:£*:£*:* a**:*:*#:*###:**#**#:*#:* * 



LOADER. BIOS 
tdos_ in t 


EQU FALSE 

equ 224 Jreserved BDOS interrupt 


II 

• 


not loader.hios 


> 

- i 
» i 

t ios_ code 
ccp_ of f se t 

tdos_ of st 
• 1 
9 1 
# 


1 

1 

equ 2500h 
equ 0000h 

equ 0B06h JBDOS entry point 

i 

i 


ENDII 


»not loader hios 
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II 



loader bios 



1 

• 1 



1 \ 

bios_ code 
cc p_ off set 
bdos of st 



i 

> t 



equ 1200b ; start of LDBIOS 
equ 0003b Jbase of CPMLOADER 
equ 0406b ^stripped BIOS eDtry 



J “ 


ENDII 


i loader 


_ bios 


csts 


equ 0dab 




; 18251 status port 


cdata 

• 

J 


equ 0d8b 




5 data 


• 


^ ^ ^ ^ 




; * 








;* I NTS 


L i SBC 201 Disk 


Controller Ports * 


; 3 








; 




^ -r *}• t *t* 




base 


equ 


0?8h 




rtype 


equ 


base+1 




rby te 


equ 


tase+3 


1 


reset 


equ 


base+7 




d sta t 


equ 


base 




i lev 


equ 


base+1 




ibigb 


equ 


base+2 




; *=££*=*£ 






<*v 


. *r 

;* INTEL iSBC 25 


*r 

4 Bubble Memory Ports * 


J * 


and Equates * 


; * 














blrpt 


equ 


0bh Jpointer to first 




cmdsts 


equ 


0fh ; command/status 




da t reg 


equ 


0eh Jdata port 




nf c 


equ 


02b ; number of chann 




enable 


equ 


20h jenable register 




bblnum 


equ 


00b jsets bubble sel 




blkl en 


equ 


01b J sets 128 byte bl 




abtcmd 


equ 


19b ; abort command 




intemd 


equ 


■lib Jinitialize comm 




rdcmd 


equ 


12b J read command 




vrtcmd 


equ 


13b Jvrite command 




f remd 


equ 


ldh ; f if o reset comm.. 
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II 



not loader bios 



» — 
• i 
> i 



) 

• i 

» i 



» 



• i 
» i 



» 



i 

i 

j This is a EIOS for the CPM.STS file. 
* Setup all interrupt vectors in low 
j memory to address trap 



call abort jabort the bubble 

call initb ^initialize the bubble 



push ds jsave the DS register 

mov IOBTTE ,0 jclear I03YTE 

mov ax,0 
mov ds ,ax 

mov es.ax jset ES and DS to zero 

,* setup interrupt 0 to address trap routine 
mov int0_off set .offset lnt_trap 
mov int@3 segment ,CS 
mov di,4' 

mov si ,0 jthen propagate 

mov ci,510 jtrap vector to 

rep movs ax.ai jail 256 interrupts 

JBDOS offset to proper interrupt 

mov bdos_ off set ,bdos_of st 

pop ds jrestore the DS register 



(additional CP/tf-86 initialization) 



i 

i 



k 



ENDII jnot loader_bios 
II loader bios 



i 

i 

jThis is a BIOS for the LOADER 
push ds jsave data segment 

mov ax,0 

mov ds.ax jpoint to segment zero 

jEDOS interrupt offset 
mov bdos_ off set ,bdos_of st 

mov bdos_ segment ,CS jbdos interrupt segment 
(additional LOADER initialization) 
pop ds jrestore data segment 

i 

i 



ENDII jloader bios 



mov bx, offset 
call pmsg 
mov cl ,0 
v 1mp cep 



signon 

jprint signon message 
jdefault to dr A: on coldstart 
j Jump to cold start entry of CCP 
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* 



cseg 

erg ccpoffset 

cep : 

org tios_ccde 

; * # 

J* BIOS Jump Vector for Individual Routines 9 

j Jr Jr 



Jirp IN IT 
Jmp WBOOT 
jmp CONST 
jmp CONIN 
Jrrp CONOUT 
jmp LI STOUT 
Jrrp PUNCH 
jmp READER 
jrrp EOME 
jmp SELCSK 
jmp SETTRE 
jmp SETSEC 
Jrrp SETDMA 
jrrp READ 
jrrp WRITE 
Jmp L1STST 
jmp SECTRAN 
jmp SETDMAE 
jmp GETS EOT 
Jmp GETIOEF 
Jmp SETI05F 



jEnter from ROOT ROM or LOADER 
JArrive here from BDOS call 0 
j return console keyboard status 
; return console keyboard char 
Jwrite char to console device 
Jwrite character to list device 
Jwrite character to punch device 
; return char from reader device 
Jmove to trk 00 on cur sel drive 
Jselect disk for next rd/vrite 
iset track for next rd/write 
! set sector for next rd/write 
; set offset for user buff (DMA) 

> read a 128 byte sector 
Jwrite a 128 byte sector 
Jreturn list status 
Jxlate logical->pbysi cal sector 
jset seg base for buff (DMA) 
Jretum offset of Mem Desc Table 
> return I/O map byte (IOBYTE) 

; set I/O map byte (IOBYTE) 



s* 



* * 

9 1N1T Entry Point, Differs for LDBIOS and * 

* BIOS, according to "Loader_Bios" value * 

3? =p 



# 3 # # 3p*t 3}C $ # 3p sp 3 p 3p sp s* 3p 3P & 3p sp # 3p 3p # 3p 3p 3 p 3p # * sp # 5 * 3p 3p 3p 3p 3p 3p 3p 3p $c jp 3p 3 p 



INIT : 



Jprint signon message and initialize hardware 



Jwe entered 
;CS: as the 

f V ^ • f 

Jand ES : 
stack during 
mev sp, offset stkbase 
cld ;set forward 



mov ax , cs 
mov ss,ax 
mov ds,ax 
mov es,ax 
Juse local 



with a JMPF so use 
initial value of SS 



initialization 
direction 
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WEOOT: jmp ccp+6 



^direct entry to CCP at command 1 



IF not loader_bios 

# _ __ 

• f 
1 I 

iDt_trap: 

cli Jblock interrupts 

mov ax,cs 

rrov ds,ax Jget our data segment 

mov tx, offset int_trp 
call pmsg 

hit Jhardstop 

• I 

> t 



ENDIF »not loader_Mos 



i 

i 



i 

i 



* # 

* CP/P Character I/O Interface Routines * 

* # 

* console is USART (18251A) on iSBC 8612 * 

* at ports D8/DA * 

* $ j* *: jjc # ^ ^ #3# Jit # $ :$: # $ «##*«#### :* ## * *: £ 



CONST: Jconsole status 

in al ,csts 
and al,2 
jz const ret 
or al ,255 



const_ ret : 
ret 



CONIN : 



call CONST 
jz CONIN 
in al.cdata 
and al ,7fh 
ret 



Jreturn non-zero if rda 
Jrcvr data availatle 
Jconsole input 
Jvait for RDA 

Jread data & remove parity hit 



CONOUT: Jconsole output 

in al.csts 

and al,l Jget console status 

jz CONOUT 
rrov al.cl 

out cdata.al transmitter buffer is empty 

ret Jthen return data 



IISTOUT: 

ret 



Jlist device output 
Jnot implemented 
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LISTST: 


jpoll list status 
jnot implemented 




ret 


PUNCH : 


Jwrite punch device 




Jnot implemented 


READER: 


mov al.lah Jreturn eof for now 



ret 

GETIOB? : 

MOV AL , I CEYTE JIOBYTE NOT IMPLEMENTED 

ret 



SETIOEF : 



ret 



uconechc : 



uret 



IOEYTZ.CL 








J ioty te not 


impl emented 


get and 


echo a console 


character 


shift it 


tc upper case 




CONIN 


Jget a con sc 


sle character 



push ax 
mov cl ,al 
call CONOUT 
pop ax 
cmp al , 'a ' 
jb uret 
cmp al , ' z ' 
ja uret 

sub al , 'a'-'A' 
ret 



Jsave and 

Jecbo to console 

Jless than 'a' is ok 

^greater than ' z' is ok 
Jelse shift to caps 



prrsg: 



mov al , [BX] 
test al,al 


>get next char from 


message 


jz return 
mov CL,AL 


; if zero return 




call CONOUT 
inc EX 


Jprint it 




jmps pmsg 


jnext character and 


1 oop 



* * 

* Disk Input/Output Routines * 

* # 

&**???*# ##*#*****&*###*&#*** *#*##*##* 
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SELDS5 : 




J select 


disk given by register CL 


Dd isks 


equ 


3 Jnumber of disks (up to 16) 




mov 


d i sk , cl 


Jsave disk number 




mov 


lx , 0000h 


Jready for error return 




cmp 


cl ,ndi sks 


Jn beyond max disks? 




Jnb 


return 


Jreturn if so 




mov 


ch , 0 


; double (n ) 




mov 


bx , ci 


Jbx = n 




mov 


cl, 4 


Jready for *16 




shl 


lx , cl 


Jn = n * 16 




mov 


cx, offset dpbase 




add 


bx , cx 


Jdpbase + n * 16 


return : 


ret 




Jbx = .dph 


HOKE : 


Jmove selected 


disk to borne position (Track 0) 




mov 


t rk , 0 


J zero the track number 




mov 


al .disk 


Jget disk number 




cmp 


al ,2 


J check if its the bubble 




jz 


ret_bme 


J skip if so 




mov 


io com.homcom 




call 


. execute 




ret bme 


• 

• 


ret 





I 



SiTTEK: Jset track address given by CL 
mov trk.CL 
ret 

SETSEC: Jset sector number given "by cl 
rrov sect , CL 
ret 

SECTRAN : Jtranslate sector CX using table at [DX] 
mov cb,0 
mov bx,cx 

add bx,dx Jadd sector to tran table address 

rrov bl,[bx] Jge t logical sector 

ret 

SETDKA: J set DMA offset given by CX 
mov dma_adr,CX 
ret 

SETDKA3: Jset DMA segment given by CX 
mov dma_seg,CX 
ret 

1 

GZTSIGT: J return address of physical memory table 

mov ti, offset seg_table 
ret 
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- 




* 










a? * 

All disk I/O parameters are setup: * 

DISK is disk number (SELDSK) * 

TDK is track number (SETTRK) * 

SECT is sector number (SETSEC) * 

DMA_ADR is the DMA 1 sh offset * 

READ reads the selected sector to the DMA* 
address, and WRITE writes the data from * 



i* the 


EMA 


address to 


the selected sector * 


» * 








if 


• ,ju -i- -W 

1 




********3 *** 


********* 


=? S3 ******* 


READ: 


rrov 


al ,disk 




» get disk number 


* 


cmp 


al ,2 




;is it the bubble 




jz 


skprd 




Jif so skip to bubble read 




mov 


cl ,4 








sal 


a 1 , cl 


; comb ine 


disk select with opcode 




or al , rdc ode 








mov 


io_com ,al 


; create 


iopb 




jmps 


execute 






skprd : 


jmp 


bubrd 


ijump to 


bubble read 


WRITE: 


rrov 


al ,d I sk 




>get disk number 




cmp 


al ,2 




;is it the bubble 




Jz 


skpwr t 




» i f so Jump to bubble write 




rrov 


cl, 4 








sal 


al , cl 








or a 1 , w rc ode 


Jcreate 


iopb for write 




mov 


io_com ,al 








jmps 


execute 




Jexecute disk routine 


skpwr t : 


Jmp 


bubwrt 




» jump to bubble write 



EXECUTE: 



outer_r etry : 

mov rtry_ cnt ,max_ retries 



retry : 

in al,rtype Jclear controller 

in al.rbyte ; 

call sendcom 

idle: in al,dstat Jwait for completion 

and al,4 Jready 

Jz idle 

; check i.o. completion ok 

in al,rtype 
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J 00 unlinked l/o complete 01 linked i/o comp. 

; 10 disk status changed 11 (not used) 

J must he a 00 in al 

test al,10b J ready status change? 

JNZ WREADY 
OR AL , 0 

Jnz werror Jsorre other error, retry 

; check i/o error hits 

in al, Tbyte 
rcl al , 1 

mov err_code,80b 

Jh wready Junit not ready 

rcr al , 1 

mov err_code,al 

and al,0feh *any other errors? 

jnz v error 

J 

; read or write is ok, al contains 0 

re t 

wready: Jnot ready, treat as an error for now 

in al,rhyte Jclear result byte * 

jmps trycount 



verrcr: Jreturn hardware malfunction 
trycoun t : 



z ret: 



dec rtry_cnt 
jnz retry 
mov al ,err_ code 
mov ah,0 

mov bi,az jmake error code 16 bits 

mov Lx , errtbl [RX] 



call pmsg 
in al,cdata 
call uconecho 
cmp al , 'C' 

Je wbootl 
cmp al , 'R ' 
je outer retry 
cmp al, 1 
je z_ret 
or al , 255 
ret 



Jprint appropriate message 
Jflush usart receiver buffer 
jread upper case console charact 

; cancel 

Jretry 10 more times 
Jignore error 

»set code for permanent error 



wboot 1: 

jmp VEOOT 



Jcan't make it v/ a short leap 
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• *&*#%$ *##**#*■ 

» * * 

; * sendcom sends the address of the ioph to * 

;* the i SBC 201 * 

;* * 

sendcom : 

MOV CL, 4 



MOV 


AX , DM A SEG 




SAL 


AX, CL 




ADD 


AX, DMA ADR 




MOV 


10 ADR, AX 




MOV 


CL, 4 




MOV 


AX.CS 




SAL 


AX ,CL 




ADD 


AX, OFFSET CEANCMD 


;add seg &. offset for 201 


out 


i 1 ow , a 1 




mov 


cl ,8 




sar 


ai ,cl 




out 


ihigh , al 




ret 








* 3 ? $ # if. if # £ if if # ^ :? £ # a? *£ 

yr 


. "V 'T- 

; * This routine reads a 128 tyte sector from * 


; s 

• 5Cr 


the tuhhle memory 


module. * 




*= * =F V >? * S s? S A # =P =? 5? # 5F 5? =* 


tubrd : 






rrov 


ah ,0 


Jclear ah register 


mov 


al , trk 


Jget track number 


mul 


constn 


^multiply by 26 


x or 


d 7 ,d i 


Jclear dx 


add 


dl ,sect 


Jadd sector number 


add 


ax ,di 


;add total 


mov 


pageno , ax 


; this is the page number 


cal ] 


vtreg 


Jvrite parametric regist 


push es 


Jsave eitra segment 


mov 


ax , d ma_ seg 


Jset the extra segment 


mov 


es , ax 


jequal to the dma_seg. 


mov 


tx ,128 


J128 bytes to be read 


mov 


di, dma_adr 


Jset pointer — 


mov 


al ,rdcmd 


Jget read command 


out 


cmdsts ,al 


; send it 


mov 


cx ,0ffffh 


Jset timeout counter 


treadl : 






in 


al .cmdsts 


Jget status 


test al,80h 


Jtest for busy 


loopz treadl 


Jwait for busy 
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jcx z 


errorl 




mov 


cx ,bx 


bread2 : 




in 


al , cmdsts 




test 


al ,01h 




jz 


hread3 




in 


al ,datreg 




stos 


al 




loop 


bread2 




jrop 


pause 


bread3: 




mov 


dx ,0f f f fh 




test 


al ,80h 


. 


Jz 


skipl 




dec 


dx 




cmp 


d x , 0 




jnz 


bread2 


skipl : 


sub 


bx , cx 




mov 


temp3 , bx 




jmp 


e rror2 


pause : 




in 


a 1 ,cmd sts 




test 


al ,80h 




Jz 


c on t in 




mov 


cx t 0ffffh 


pollb : 




in 


al .cmdsts 




test 


al ,80h 




loopn z 


pollb 




jcxz 


errorl 


cont in : 




xor 


al ,al 




pep 

ret 


es 


errorl : 




mov 


bx , of f set 




call 


pmsg 




call 


abort 




call 


initb 




mov 


al , 01h 




pop 


es 

ret 


error2: 




mov 


bx , of f set 




call 


pmsg 




call 


abort 




call 


initb 




mov 


al ,01h 




pop 

ret 


e s 



J timeout error 

Jload # of bytes to read 

Jget status 
Jtest for fifo empty 
Jyes, check for "busy 
;no,get data 
Jstore it 
i go again 

Jwait for good status 

J timeout i d dx r eg 
Jcheck for busy 

7 

^decrement timeout cntr 
Jcompare timeout to 0 
Jstill "busy wait 
J bytes trans in bx 
Jstore byte transfer cnt. 



Jget status 
Jcheck for busy 
Jnot busy-send status 
Jset up timeout cntr. 

Jget status 
Jcheck for busy 
Wait for busy to clear 
? but not too long 

Jreturn a 0 in al 
*» return extra segment 

buberrl J timeout error 

Jprint the message 
Jabort the bubble 
Jinitialize the bubble 
Jreturn with a 1 in al 
Jreturn extra segment 

tuberr2 ; read op fail ^ 

Jprint the message 
Jabort the bubble 
J initialize the bubble 
Jreturn with a 1 in al 
Jreturn extra segment 
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* 

* This routine writes a 128 "byte sector 

* into the bubble memory 

* 



bubwrt : 



mov 


ah , 0 


mov 


a 1 f t rk 


mul 


constn 


xor 


dx ,dx 


add 


dl f sect 


add 


a x ,dx 


mov 


pageno , ax 


call 


w treg 


mov 


ax , dma_ seg 


mov 


s i ,dma_ adr 


push 


ds 


mov 


d s ,ax 


mov 


tx ,128 


mov 


al .wrtcmd 


out 


cmd sts , a 1 


mov 


cx ,0f f f fh 


twri tel : 




in 


a 1 , c md s t s 


test 


al,80h 


loopz 


bw ri tel 


Jcxz 


e rrorll 


tes t 


al ,01h 


loopz 


bw ri tel 


Jcxz 


errorll 


mov 


cx ,bx 


twri te2 : 




in 


al , cmdsts 


test 


al ,01h 


Jz 


twri te3 


lods 


al 


out 


datreg ,al 


loop 


bwri te2 


Jmp 


pausel 


twr i te3 : 




mov 


dx ,0f f f fh 


test 


al ,S0h 


Jz 


skipll 


dec 


dx 


cmp 


dx ,0 . 


Jnz 


bwrite2 


skipll: sub 


H 

O 

W 


Jmp 


e rror22 


pausel : 




in 


al .cmdsts 



# 

* 

$ 

Sit 
spsft 

Jclear ah register 
Jget track number 
Jmultiply hy 26 
Jclear dx 

Jadd sector number 
Jcomhine the total 
Jthis is the page number 
Jwrite parametric regist 
Jset the data segment 
Jset pointer 
Jsave data segment 
Jequal to the dma_seg 
Jnumber of bytes to be 
Jload write command 
J send i t 
Jtimeout cntr 

Jget status 

Jcheck for busy 

Jwait for busy 

Jtimeout error 

Jtest for fif o ready 

Jwait for fifo 

J timeout error 

Jload # number of bytes 

Jget status 

Jcheck for fifo ready 

Jno-wai t 

Jyes-get data 

J send data to bubble 

J go again 

Jreturn good status 

Jset timeout cntr 

Jcheck ofr busy 
» 

t 

Jdecrement timeout cntr. 
Jcompare timeout to zero 
Jtry again 

J# of bytes transferred 
J op fail error 

Jget status 
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pollbl 



cont ini 



errorll 



error£2 



test 


al ,80h 


. 

J 


jz 


continl 


• 

} 


mov 


cx ,0f f f fh 


• 

y 


in 


al .cmdsts 


• 

y 


tes t 


al ,80h 


• 

y 


loopn z 


pollbl 


• 

y 


jcxz 


errorll 


• 

y 


xor 


al ,al 


• 

y 


pop 


ds 


. 

y 


ret 






mov 


tx , of f set 


buberrS 


call 


pmsg 




call 


abort 


; 


pop 


d s 


• 

y 


call 


initb 


• 

y 


mov 


al ,01h 


• 

> 


ret 






mov 


bx .offset 


buberr4 


call 


prnsg 




call 


abort 


• 

y 


pop 


d s 


• 

y 


call 


initb 


• 

y 


mov 


al ,01h 


. 

y 


ret 







timeout 



status 



too long 



a 0 i n al 



Jtimeout failure 

he bubble 
the data segment 
ize the huhtle 
with a 1 in al 

>op fail msg 



a 1 in al 



S # 

* This routine shorts the tuhhle memory. * 

* * 



abort : 


mov 


cx ,0f f f fh 




mov 


bh ,40h 




mov 


al .abtcmd 




out 


cmdsts ,al 


busy : 


in 


al , cmdsts 




and 


al ,80h 




jz 


poll 




dec 


cx 




xor 


ax, ax 




cmp 


cx ,ax 




jnz 


busy 




Jrcp 


retl 


poll: 


in 


al .cmdsts 




test 


al ,40h 




jnz 


ret2 



Jinit timeout cntr 
Jload op comp hit 
Jload abort command 
Jissue it 

Jget status 
Jcheck for busy 
; if busy jump to poll 
Jelse decrement cx 
Jclear ax reggg 
jheck timeout count = 0 
»time left, try busy again 
Jreturn with error 

Jget status 

Jcheck for status=40h 

Jreturn with op comp 
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dec 


cx 


• else decrepent tipeout cntr 




xor 


ax ,ax 


Jclear ax 




cpp 


cx,ax 


jcoppare tipeout to 0 




Jnz 


poll 


• try again 


retl : 


in 


al ,cPd sts 


Iget status 




irov 


h, offset 


buberr5 Jabort fail psg 




call 


ppsg 




rrov 


al ,1 


Jreturn a 1 in al 




pop 


bx 






ret 




Jreturn to systep 


ret2 : 


irov 


dx ,27500 


•delay 100 ps 


loop : 








xor 


ax ,ax 


•clear ax 




dec 


di 


Jdecrepent count 




cpp 


dx ,ax 


; is it zero 




jnz 


loop 


Jno-go again 




ret 




•yes-return 






» ^ 

;* This 


routine 


writes the 


*r- 

values into the * 


; * 1)01)1)18 memory pararretric 

• as 


registers. * 

it 




3^^ 3jX^ 3? 3^ 




w treg : 


mov 


al ,hlrpt 


•set register pointer 




out 


cPd sts , al 


Jset pointer in bpc 


• 


POV 


bx , blklen 


•load block length 


9 


irov 


al ,1)1 


; this series of instructions 




out 


datreg , al 


•copbines block length 




POV 


al , nf c 


Jand the nfc value 




POV 


cl ,4 


; to forp a sixteen bit 




shl 


a 1 , c 1 


Jword to place in 




or 


al ,hh 


;the block length 


• 


out 


datreg ,al 


Jregister 


9 


mov 


al , enable 


*,load enable register values 


• 


out 


datreg ,al 


•and send to bpc 


9 

• 


POV 


bx ,pageno 


;ioad pageno 


9 


POV 


al , bl 


Jthis series of instructions 




out 


datreg ,al 


Jcopbines page nupber 




POV 


al , bbl nup 


Jand bubble nupber 




POV 


cl, 3 


•to forp a sixteen bit 




shl 


al ,cl 


Word to rlace in 
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or al,bb Jthe address 

out datreg,al Jregister 

ret 

* # 

* Tbis routine initializes tbe bubble memory * 

T ^ 



initb: 

mov al ,blrpt 

out cmdsts ,al 

-mov tx , 0000b 

1 

idov al , bl 

out datreg,al 

mov al ,01 

mov cl, 4 

sbl al , cl 

or al ,bh 

out datreg,al 

J 

mov al ,20b 

out datreg,al 

1 

mov tx,pageno 

J 

mov a 1 ,bl 

out datreg,al 

mov al ,01h 

mov cl, 3 

stal al , cl 

or al ,bh 

out datreg.al 

1 

mov cz,0ffffh 

mov bx,40b 

mov al.intcmd 

out cmdsts ,al 

tu syl : 

in al , cmdsts 

and al ,80b 

Jz polll 

dec cz 

zor az ,az 

cmp cz,az 

Jnz busyl 

Jmp retal 

p olll : 



Jset pointer 

Jset pointer in bmc 

Jload init block length 

Jthis series of instructions 
Jcombines block length 
Jand the nfc value 
Jto form a sixteen bit 
Jvord to place in 
Jthe block length 
J register 

Jload enable register values 
Jand send to bmc 

Jload init page number 

Jtbis series of instructions 
Jcombines page number 
Jand bubble number 
Jto form a sixteen bit 
Jword to place in 
Jthe address 
J regi s ter 

Jset timeout cntr 
Jload op comp status bit 
Jload initialize cmd 
Jsend it 

Jget status 
Jcbeck for busy 
Jif not busy jump 
Jdecrement timeout cntr 
Jclear az 

Jcompare timeout to zer0 
Jtry again if time left 
J timeout failure 
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in 


a 1 , ends ts 


Jget status 




lor 


al ,40 h 


Jcheck if opcomp 




Jz 


re ta2 


; if complete return 




d ec 


CI 


Jdecrement timeout entr 




lor 


ai , ai 


Jclear ai 




cmp 


ci ,ai 


Jcompare timeout to 0 




Jnz 


polll 


Jtry again 


retal : 










irov 


hi, offset huherr6 Jtimeout failure 




call 


pmsg 


• 

9 




pop hi 




• 

9 




ret 




Jreturn to system 


reta2 : 








• 


ret 




Jreturn to routine 


9 

! Y ' 








9 * 




Data Areas 


3JC 


9 * 






* 



data_offset equ offset $ 

dseg 

org dataoffset ^contiguous with code seg 



IOBYTE 


dh 




0 




disk 


dh 




0 


Jdisk number 


c b a n cmd 


dh 




80h 


jioph channel word 


i o_c om 


dh 




0 




nsec 


dh 




1 


Jnumber sectors to ifer 


trk 


dh 




0 




sect 


dh 




0 


Jstart sector 


IO_ ABB 


EV 




0000B 


;PBTS ADDR FOR SBC201 USE 


dma_ adr 


d w 




oeeeh 


JDMA adr (default) 


dma_seg 


dw 




0 


5DMA Base Segment 


pageno 


dw 




0 


Jpage number for bubble memory 


temp2 


rw 




l 


temporary storage 


constn 


dv 




001ah 


; 26 sectors per track 


BOM COM 


EQU 


3 






R DC ODE 


EQU 


4 






ERR CODE DB 


00B 






VRCOEE 


EQU 


6 






• 


IE 




loader 


_ bios 


9 

• 1 
9 1 

signon 


dh 




cr ,lf , 


i 

cr , If 


* i 
9 1 

• 


dh 




'CF/M- 


86 Version 1.0',cr,lf,0 

1 

1 


9 


INDIE 


; loader_hios 
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• 


IF 


not loader_tios 


1 ' 
• 1 
9 1 

signon 


db 


1 

1 

cr f If f cr , If 




db 


'System Generated 2/22/84' 


• 1 
9 1 
• 


db 


c r , If , 0 

i 

1 


9 “ 


ENDIF > not loader_tios 


int_ trp 


db 


cr , If 


db 


'Interrupt Trap Balt' 




db 


cr,lf ,0 


e rrtbl 


dv 


er0,erl ,er2 ,er3 




dw 


er4 ,er5 ,er6 ,er7 




dv 


er8 ,er9 ,erA ,erB 




dv 


erC ,erD ,erE ,erF 




dw 


erl0,er20,er40,er80 


er0 


db 


cr, If, 'Null Error ??',0 


e rl 


db 


cr, If , 'Deleted Record :',0 


er2 


db 


cr,lf,'CRC Error :',0 


er3 


db 


cr, If, 'Data Overrun-Underrun :',0 


6 r4 


db 


cr, If, 'Seek Error :',0 


er5 


equ 


er0 


er6 


equ 


er0 


er7 


equ 


er0 


ere 


db 


cr , If , 'Address Error :',0 


er9 


db 


cr, If, 'Write Protect :',0 


erA 


d b 


cr,lf,'ID CRC Error :',0 


e rB 


db 


cr, If, 'Write Error :',0 


erC 


db 


cr , If , 'Sec tor Not Found :',0 


erD 


equ 


er0 


erE 


d b 


cr.lf.'No Address Mark :',0 


erF 


db 


cr, If, 'Data Mark Error :',0 


erl0 


equ 


er3 


er20 


equ 


er9 


er40 


equ 


erB 


er£0 


db 


cr, If, 'Drive Not Ready :',0 


tuterrl 


db 


cr , If , 'Eubble Read Timeout Error: 


tuterr2 


db 


cr , If , 'Bubble Read Failure:', 0 


tuterr3 


db 


cr, If , 'Bubble Write Timeout Error 


tuterr4 


db 


c r ,lf , 'Eubble Write Failure:'', 0 


tuberr5 


at 


cr , If , 'Bubble Abort Failure:', 0 


tuterr6 


db 


c r ,1 f , 'Bubble Initialize Failure: 



rtry_cnt db 0 Jdisk error retry counter 
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System Memory Segment Tatle 



segtatle dt 1 ;i segments 

dw tpa_seg jlst seg starts after BIOS 

dw tpa_len Jand extends to 08000 

include singles. lit ; read in disk definitions 

locstk rv 32 Jlocal stack for initialization 
stktase equ offset $ 

lastoff equ offset $ 

tpa_seg equ (lastoff +0400h+15) / 16 

tpa len equ 0F00h - tpa seg 

dt 0 ; fill last address for GENCMD 



£ S* * 3* £ 3* *r # 2? 3* # -C 3jt 3* # # J* 3? # ^ # # £ # # # # # # =£ # # # =£ 3* 5* 3* # £ # 

* * 

* Dummy Data Section * 

* * 

0 latsolute low memory 

0 ;(interrupt vectors) 

rw 1 

rv 1 

pad to system call vector 
rw 2*(tdos_ int-1 ) 



dseg 

org 

int0_ of f set 
int0_ segment 
» 



tdos_offset rw 

tdos’segment rv 

END 



1 

1 



rtry_cnt dt 0 Jdisk error retry counter 
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